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NA de las primeras panta- 
llas que realizamos con el 
Logo fue un saludo, la última 
pantalla es una despedida, 
un HASTA PRONTO. 
Primero definimos un 
nuevo juego de caracteres. 
En todos o en casi to- 


dos utilizaremos los procedimientos AA, R2, 


R3 y R4. 


EVEN NENE ES UNES INON REYES 


PARA AA 
PONRUMBRO 0 


BL 


REPITE 3 [AV 20 RE 20 GD 90 AV 1 


GI 90] 


FIN 


PARA R2 
REPITE 2 [AV 20 GD 90] 
FIN 


PARA R3 
REPITE 3 [AV 20 GD 90] 


FIN 


PARA R4 
REPITE 4 [AV 20 GD 90] 


FIN 


empezamos ya con las letras: 
PARA A 


AA 
R3 


GD 90 AV 5 Gl 90 AV 20 
SL RE 25 GD 90 RE 5 


FIN 


PARA B 


AA 
R4 


AV 10 GD 90 AV 20 
SL AV 5 GD 90 AV 10 Gl 180 


FIN 


VVUVVVV Y? VVVVVVV >? VYVVVVVV"? VVVVvvo> 


VVVVVVVV> 


GI 90 RE 20 

R3 

SL AV 20 Gl 90 AV 5 Gl 90 
FIN 


AV 20 GD 90 AV 18 
GD 45 AV 2 GD 45 
AV 18 GD 45 AV 2 
GD 45 AV 18 

SL RE 25 

FIN 


PARA E 
AA 

GI 90 RE 20 
R3 


SL AV 10 GD 90 

BL AV 20 

SL RE 25 GD 90 RE 10 
FIN 


SL AV 10 GD 90 

BL AV 20 

SL RE 25 GD 90 RE 10 
FIN 


GI 90 RE 20 

R3 

SL AV 10 BL 

GD 90 AV 13 RE 13 
GD 90 RE 10 

SL GD 90 AV 5 
FIN 
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VVUV Y VVUVVVV O? VVVVV Y? VVVV? VVVVVV >? VVVVV>? VVVVVVV>VVVWVVV> 


PARA H 

AA 

AV 20 RE 10 GD 90 
AV 20 GI 90 AV 10 
RE 20 

SL GD 90 AV 5 
FIN 


PARA 1 

GD 90 AV 8 Gl 90 
AR 

GI 90 AV 12 RE 20 
AV 12 GD 90 AV 20 
GD 90 AV 12 RE 20 
SL AV 25 GI 90 RE 20 
FIN 


GI 90 RE 20 


R2 
SL AV 25 GI 90 RE 20 
FIN 


AV 20 GD 135 AV 27 
GI 135 AV 20 

SL GD 90 AV 5 

GI 90 RE 20 

FIN 


PARA 01 
AR 


4 
SL GD 90 AV 25 Gl 90 
FIN 


PARA P 

AA 

R2 

AV 10 GD 90:AV 20 
SL RE 25 GD 90 RE 10 
FIN 


PARA R 

AA 

R2 

AV 10 GD 90 AV 21 
GI 155 AV 23 

SL GI 25 AV 5 GI 90 
FIN 


PARA S 
PONRUMBO 0 
SL AV 10 BL 


REPITE 2 [REPITE 3 [AV 10 RE 10 
GD 90 AV 1 Gl 90] GD 90 AV 20 


GD 90] 
SL RE 10 GD 90 RE 1 


YAVN NANNEE VE ANUN EN NN E VO NEEN NN NEP NINYNN 


> 


> 


BL AV 24 GI 90 SL 
AV 20 CI 90 BL AV 21 
SL RE 25 GD 90 RE 20 
FIN 


PARA T 

SL GD 90 AV 10 Gl 90 

AR 

AV 20 GD 90 RE 13 AV 25 
SL AV 5 GI 90 RE 20 

FIN 


PARA U 

AA 

AV 20 RE 20 GD 90 

AV 20 GI 90 AV 20 

SL GD 90 AV 5 Gl 90 RE 20 
FIN 


PARA V 

SL GD 90 AV 10 

GI 120 

REPITE 4 [BL AV 23 SL RE 23 

GD 120 AV 1 Gl 120] 

BL GD 60 AV 23 

SL GD 60 AV 5 GI 90 RE 20 

FIN 

PARA Y] 

SL GD 90 AV 12 

GI 90 BL 

REPITE 3 [AV 9 RE 9 GD 90 AV 1 CI 
90] 

AV 9 CD 45 AV 16 RE 16 

Gl 135 AV 6 

REPITE 3 [GD 45 AV 16 PONRUMBO 
90 

AV 1 GD 45 AV 16 PONRUMBO 270] 
SL PONRUMBO 180 AV 9 GI 90 AV 


FIN 


Ahora definimos el procedimiento que 
presenta en la pantalla el menú de idiomas: 


VVWVWVWVVVVVVVVVV” 


PARA MENU 

PT 

PONCURSOR [15 1] 
ES "MENU 
PONCURSOR [10 7] 
ES [1 - CASTELLANO] 
PONCURSOR [10 8] 
ES [2 - CATALA] 
PONCURSOR [10 9] 
ES [3 - GALEGO] 
PONCURSOR [10 10] 
ES [4 - EUSKERA] 
PONCURSOR [10 11] 
ES [5 - ENGLISH] 
PONCURSOR [10 12] 


> ES [6 - FRANCAIS] + ARTE 
> PONCURSOR [10 13] > FIN 
> ES[7 - ITALIANO] > 
> PONCURSOR [14 18] ss POS 80 30] 
> ES [ELIGE IDIOMA] > SEE 
> FIN > SL PONX 10 
El procedimiento ELEGIR asigna a la va- > MUOFU 
riable A la opción que elegimos. > SL PONPOS [-55 -10] 
? PARA ELEGIR > SOlLOLN 
> PONCURSOR [28 18] > FIN 
> HAZ'ALC ? PARA FRANCAIS 
> SIO:A<1:A > 7 [ELEGIR] > PONPOS [-100 10] 
> FIN > A 
El procedimiento DESPEDIDA llama al > SL PONX -50 
procedimiento adecuado según la opción ele- > BIENTOIT 
gida. > FIN 
? PARA DESPEDIDA ? PARA ITALIANO 
> MENU > PONPOS [-150 15] 
> ELEGIR > ARRIVEDERCI 
> PM BT BP SL > FIN 
> SI:A =1[(CASTELLANO] ] 
> -SI:A = 2 [CATALA] Nosotros nos despedimos de todos en 
> SI:A = 3 [GALEGO] castellano. 
> SI:A = 4 [EUSKERA] ? DESPEDIDA 
> SI:A = 5 [ENGLISH] 
> SI:A = 6 [FRANCAIS] 
> SI:A =7 [ITALIANO] 
> FIN 
Cada uno de los siguientes procedi- 
mientos dibuja en la pantalla la despedida en 
el idioma elegido. 
? PARA CASTELLANO 
> PONPOS [-80 30] 
> HASTA 
> SL PONPOS [-60 -10] 
> PROINTOl 
> FIN 
? PARA CATALA 
> PONPOS [-80 30] 
> FINS para ello elegimos la opción 1, es decir, pulsa- 
> SL PONPOS [-60 -10] mos el 1. 
> DESPRES 
> FIN 
? PARA GALEGO 
> PONPOS [-80 30] 
> ATA 
> SL PONPOS [-60 -10] 
> LOIGOIl 
> FIN 
? PARA EUSKERA 
> PONPOS [-80 30] 
> LASTER 
> SL PONPOS [-60 -10] 
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PANTALLAMIXTA PANTALLAMIXTA 
PANTALLATEXTO TEXTO 
PARA PARA 
PAUSA — 
PI = 
PONANCHURA PONANCHURA 
PONCOLORFONDO PONFONDO 
PONCOLORLAPIZ PONCL 
PONCOLORTEXTO PONCT 
PONCOM - 
PONCURSOR PONCURSOR 
PONDISCO PONDISCO 
PONESCALA PONESCALA 
PONESCRITURA PONESCRITURA 
PONFONDO PONFONDO 
PONFONDOTEXTO — 
PONFORMA PONFORMA 
PONLAPIZ = 
PONLECTURA PONLECTURA 
PONPALETA — 
PONPANTALLA — 
PONPOS PONPOS 
PONPOSESCRITURA =- 
PONPOSLECTURA - 
PONPRIMERO PONPRIMERO 
PONPROP PONPROP 
PONRUMBO PONRUMBO 
PONULTIMO PONULTIMO 
PONX PONX 
PONY PONY 
POS =- 
POSESCRITURA — 
POSLECTURA =- 
POTENCIA — 
PRIMERO PRIMERO 
PRODUCTO PRODUCTO 
PROP PROP 
PUNTO PUNTO 
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SPECTRUM 


ES.NUMERO? 
NORMAL 


0) 
ESCONDETORTUGA 


PALABRA 
ES.PALABRA? 


MODOTEXTO 
PARA 


PONCF 
PONCL 
PONCT 


PONCURSOR 
PONDISCO 
PONESCALA 


PONCP 
PONCT 


PONPOS 


PONPRI 


PONRUMBO 
PONULT 
PONX 
PONY 


PRIMERO 
PRODUCTO 
PUNTO 
ENTRADASERIE 


AMSTRAD 


OR 
ESCONDER_TORTUGA 


UNE 


PANTALLA_DE_GRAFICOS 


PANTALLA_DE_TEXTO 
TO 


COLOR_TORTUGA 


PC-COMPATIBLES MSX 
R 
RAIZCUADRADA RC 
RECICLA RECICLA 
REDONDEA REDONDEA 
RELLENA RELLENA 
REPITE REPITE 
RESTO RESTO 
RETROCEDE RETROCEDE 
RUMBO RUMBO 
— RESERVA 
— RESERVADO 
S 
SEN SEN 
sI SI 
SICIERTO SIC 
SIFALSO SIP 
SONIDO SONIDO 
SUBELAPIZ SL 
SUMA SUMA 
D 
TECLA? TECLA? 
TECLEA TECLEA 
TEXTOPROC TEXTOPROC 
TONO 5 
TRAE ES 
U 
ULTIMO ULTIMO 
V 
VACIO? VACIO? 
VAR? VAR? 
VENTANA VENTANA 
Y 
Y ye 


SPECTRUM 


.SALIDASERIE 
PONCOLORBORDE 
PONBRILLO 


RC2 
RECICLA 
REDONDEA 


REPITE 
RESTO 
RETROCEDE 
RUMBO 
-RESERVA 
RESERVADO 


SENO 
SI 


SONIDO 
SINLAPIZ 
SUMA 


TECLA? 


TEXTO 


TANGENTE 


ULTIMO 


ESTA.VACIA? 
ES.VARIABLE 
VENTANA 


AMSTRAD 


DEJAR_ESPACIO 


REPETIR 


ATRAS 


SI 


SONIDO 
PLUMA_ INVISIBLE 


AND 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


OSTRAMOS a continuación 
el programa BREAK OUT, 
que hemos estado viendo 
durante los últimos tomos en 
los demás ordenadores. El 
programa 1 nos permitirá 
definir nuestras propias 
pantallas de juego para po- 
der jugar con el programa 2. 


Pig. 1. 


10 REM alo SO load alolSjdlajola lola jolSlalololololojojoK 


20 REM xxkxk GAMBLE-BRICK xxx 
30 REM xxx Un programa realizado *Xx*x* 
40 REM xoxkxk Por Ak 
50 REM *x*x*x Carlos A. Maria Morin *xxx 
60 REM xxkxk KK 
70 REM xxx (C> Ediciones Ak 


80 REM Xxx Siglo Cultural 1987 *xxXkx 

90 REM ASAS alo lOSlOlOIOIO JO 

100 REM 

110 REM aSSSSdSISISISjSSlSlSl3lS ll IIS OROOIOIOROROROJOK: 
120 REM AXOSdOOK INICIALIZACION A3oOOROOIOO Nk 
130 REM ARaRRSida da Slda lalalala lala jolalalalolajolBjolajolajalajolajolajolojok 
140 REM 

150 MODE O 

160 LOCATE 4,13: PRINT”GAMBLE--—BRICK” 

170 FOR ret=1 TO 3000 

180 NEXT 

190 PEN 1 

200 SYMBOL AFTER 232 

210 SYMBOL 232,0,0,126,195,195,126,0,0 

220 SYMBOL 233,0,62,127,255,255,127,62,0 

230 SYMBOL 234,0,124,254,255,255,254, 124,0 
240 SYMBOL 235,0,0,255,255,255,255,0,0 

250 SYMBOL 236,0,254,254, 254,254, 254,254, 254 
260 SYMBOL 237,0,255,255,255,255,255,255, 255 
270 SYMBOL 238,0,127,127,127,127,127,127n 127 
280 SYMBOL 252,63,252,63,252,63,252,63,252 
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290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 

520 
530 
540 
550 
560 

570 

580 

590 
600 

610 

620 

630 

640 

650 

660 

670 

680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


SYMBOL 253,170,170,255,255, 255,255, 85,85 
SYMBOL 254,60, 126,255, 255,255, 255, 126, 60 
1lads=CHRS (238) +CHRS(237)+CHR$ (236) 
bichl1$=CHRS (233)+CHR$ (235)+CHR$ (234) 
bichs=bich18$+bich18+bich1$8 

pelotas=CHRS (232) 

RESTORE 2710 

nulad=0 

gol=0 

bich=3 

REM 

REM aaa SIONES ala jOlalaallSlSjalalalalalo jojojo 
REM A9MOOIOOIOO LK CREA PANTALLAS adMROMIdOOao: 
REM Salad lMJOallElalolaalElalalalajalalciojok 
REX 

MODE 1 

PEN 1 

punt=punt+1 

FOR xx=2 TO 39 

LOCATE xx, 1:PRINT CHR$(253)> 

NEXT 

FOR xx=1 TO 40 STEP 8 

LOCATE xx, 1: PRINT CHR$(254) 

NEXT 

LOCATE 40,1:PRINT CHR$(254> 

FOR yy=2 TO 24 

punta=punta+1 

LOCATE 1,yy:PRINT CHR$(252) 

LOCATE 40, yy: PRINT CHR$(252) 

IF punta=8 THEN GOSUB 2370 

NEXT 

LOCATE 1,24 

PRINT CHR$(254)>;CHR$(253);CHR$S(254> 
LOCATE 38,24 

PRINT CHR$(254>;CHR$ (253); CHR$(254> 
punt=punt+1 

FOR yy=2 TO 11 

pluma=pluma+1 


IF pluma=4 THEN pluma=1 

PEN pluma 

FOR xx=3 TO 36 STEP 3 

READ as 

a=VAL(as)> 

IF a$="FIN” THEN RESTORE: READ a 


IF a=1 THEN LOCATE XX, yy: PRINT lads$ 

NEXT 

NEXT 

REM 

REM AMOO O OOOO OOOO OOOO OIOJO OK 
REM aokoobkkk PROGRAMA PRINCIPAL adaioololdok 
REM AO SO OOOO OOOO OJO OOOO AOS IIOOJOK: 
REM 

LOCATE 13,25 

PRINT'"SCORE:”;gol 

LOCATE 1,25 

PRINT bichs$ 

RANDOMIZE TIME 

PEN 1 

y=1 

po=16 

GOSUB 1400 

x= INT(RNDX10>+1 

ix=1 

iy=1 

y=12 

reset=TIME 
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950 au=1 

960 tiempo=(INT(CTIME-reset)>/300)>> 

970 masc=INT(tiempo/2) 

980 masc$=STRINGS(masc, 143) 

990 IF tiempo=10 THEN 440 

1000 IF INKEY(8)=0 THEN po=MAX(po, 4>-3:GOSUB 1400: ' MUEVE CAPSULA 
1010 IF INKEY(1)=0 THEN po=MIN(po,29)+3:GOSUB 1400: ' MUEVE CAPSULA 
1020 GOSUB 1040 

1030 GOTO 950 

1040 IF swich=0 THEN x=x+1x: x=x+1x 

1050 y=y+tiy 

1060 y=y+iy 

1070 IF x<3 AND ix=-au THEN ix=au: x=2: SOUND 5,201,5,15 
1080 IF x>38 AND ix=au THEN ¿ix=-au: x=39: SOUND 5,201,5,15 
1090 IF y<3 AND iy=-au THEN iy=au: y=2:swich=0: SOUND 5,201,5,15 
1100 IF y>22 AND iy=au AND ((po+3=x OR pot4=x OR po+5=x> OR ((x>0 AND x<4)> OR (x 
>37 AND x<40)>)> THEN y=23: iy=-ABS(2): SOUND 5,201,5,1 

5 

1110 IF y>=24 AND iy=au THEN GOTO 2260 

1120 PEN 2 

1130 LOCATE 28,25:PRINT "TIEMPO: ”;mascs$ 

1140 LOCATE x,y-1 

1150 a18=COPYCHRS (+40) 

1160 car1=ASC(a1$)> 

1170 LOCATE x,y+1 

1180 a25=COPYCHR$ (+0) 

1190 car2=ASC(a25$) 

1200 LOCATE x+1,y 

1210 a3s5=COPYCHRS (+*0> 

1220 car3=ASC(a35) 

1230 LOCATE x-1,y 

1240 a4$=COPYCHRS (40) 

1250 car4=ASC(a4s)> 

1260 1F car2=233 OR car2=234 OR car2=235 THEN GOSUB 1550:GOTO 1320 
1270 1F (car2=254 OR car2=253) THEN GOSUB 1550: GOTO 1320 
1280 IF carl=238 OR cari=236 OR carl=237 THEN GOSUB 1690 
1290 IF car2=238 OR car2=236 OR car2=237 THEN GOSUB 1820 
1300 IF car3=238 OR car3=236 OR car3=237 THEN GOSUB 1930 
1310 IF car4=238 OR cará4=236 OR car4=237 THEN GOSUB 2040 
1320 PEN 1 

1330 LOCATE x, y 

1340 FRAME 

1350 PRINT pelotas 

1360 LOCATE x, y 

1370 FRAME 

1380 PRINT ”» ” 

1390 RETURN 

1400 1F po<3 THEN spais="":si=3 ELSE spais=” ":si=0 
1410 IF po>30 THEN spad$="”" ELSE spad$=" 2 

1420 PEN 2 

1430 LOCATE po+si,24 

1440 PRINT spais+CHR$(233); 

1450 PEN 3 

1460 PRINT CHR$(235); 

1470 PEN 2 

1480 PRINT CHR$(234)+spads$ 

1490 RETURN 

1500 REM 

1510 REM ASS AdlOalIOSIO lalalala alla aiolololak: 

1520 REM * SUBRUTINAS DEL PROGRAMA PRINCIPAL x 

1530 REM aaRRaaOaalddalaldlalalalalFlolalalalalalalalajajalBlolololalojolalok 

1540 REM 

1550 iy=-ABS(au): SOUND 7,100,5,15 

1560 1F car2=235 THEN 1570 ELSE 1610 

1570 iy=-ABS(au): swich=1 

1580 SOUND 5,201,5,15 
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1590 SOUND 5,300,5,15 
1600 RETURN 
1610 REM 
1620 IF car2=238 THEN ix=-ABS(au) 
1630 IF car2=236 THEN ix=ABS(au) 
1640 iy=-ABS(au) 
1650 SOUND 5,201,5,15 
1660 SOUND 5,300,5,15 
1670 RETURN 
1680 REM 
1690 REM :::::::::: BORRA CARACTER ARRIBA ::::3:::03005: 
1700 REM 
1710 iy=ABS(au): SOUND 7,100,5,15 
1720 IF car1=238 THEN xx=x: yy=y-1 
1730 1F carl=237 THEN xx=x-1:yy=y-1 
1740 IF carl=236 THEN xx=x-2;yy=y-1 
1750 LOCATE xx, yy 
1760 PRINT” A 
1770 GOSUB 2150 
1780 RETURN 
1790 REM 
1800 REM :::::::::: BORRA CARACTER ABAJO :::::0:0031 
1810 REM 
1820 iy=-ABS(au): SOUND 7,100,5,15 
1830 IF car2=238 THEN xx=x: yy=y+1 
1840 IF car2=237 THEN xx=x-1: yy=y+1 
1850 IF car2=236 THEN xx=x-2: yy=y+1 
1860 LOCATE xx, yy 
1870 PRINT"” e 
1880 GOSUB 2150 
1890 RETURN 
1900 REM 
1910 REM ::::::::::+ BORRA CARACTER DERECHO :::00:200000 
1920 REM 
1930 ix=-ABS(au): SOUND 7,100,5,15 
1940 IF car3=238 THEN xx=x+1: yy=y 
1950 IF car3=237 THEN xx=x: yy=y 
1960 IF car3=236 THEN xx=x-1: yy=y 
1970 LOCATE xx, yy 
1980 PRINT” " 
1990 GOSUB 2150 
2000 RETURN 
2010 REM 
2020 REM :::::::::: BORRA CARACTER IZQUIERDO :::::3100005: 
2030 REM 
2040 ix=ABS(au): SOUND 7,100,5,15 
2050 IF car4=238 THEN xx=x-1: yy=y 

b 2060 IF car4=237 THEN xx=x-2: yy=y 
2070 IF car4=236 THEN xx=x-3: yy=y 
2080 LOCATE xx, yy 


2090 PRINT" 4 
2100 GOSUB 2150 


2110 RETURN 

2120 REM 

2130 REM :::::::2:2 IMPRIME PUNTUACION :::2:0:4:<0 
2140 REM 

2150 gol=go01+punt 

2160 PEN 2 

2170 LOCATE 13,25 

2180 PRINT"SCORE:”;¡gol 

2190 reset=TIME 

2200 LOCATE 35,25 

2210 PRINT ” pe 

2220 RETURN 

2230 REM 

2240 REM :::::: IMPRIME CAPSULAS QUE QUEDAN :::::: 
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o 


2250 REM 

2260 IF bich=1 THEN GOTO 2480 

2270 SOUND 5,201,5,15 

2280 bich=bich-1 

2290 LOCATE 1,25 

2300 bichs=”” 

2310 FOR uno=1 TO bich 

2320 bichS$=bich$+bich15 

2330 NEXT 

2340 bich$=bich$+STRINGS((3-bich)X3,” ”) 

2350 PRINT bich$ 

2360 GOTO 900 

2370 punta=0 

2380 LOCATE 1, yy 

2390 PRINT CHR$(254>; 

2400 LOCATE 40, yy 

2410 PRINT CHR$(254>) 

2420 RETURN 

2430 REM 

2440 REM aaa alalalalololalalajalok: 
2450 REM AMOloOOKk FINAL DE PARTIDA AMOO 
2460 REM aaRaaalalalalala lalala lajalalalalalalolajolalojolalalolalRlololojojor 
2470 REM 

2480 FOR x=1 TO 2000: NEXT 

2490 WINDOW*1,10,30,5,15 

2500 PAPER$*1,2 

2510 PEN*1,0 


2520 CLSF1 

2530 PRINT*1,”” 

2540 PRINTH1,” LO SIENTO MUCHO ” 
2550 PRINTA1,” PERO SE ACABO » 
2560 PRINT+*1,” LO QUE SE DABA. ” 
2570 PRINTH1,”" 

2580 PRINTH*1,” SCORE: ”;gol 


2590 PRINT+*1,”" 
2600 PRINT*1,”  JQUIERES VOLVER A ” 


2610 PRINTF1,"JUGAR DE NUEVO (S/N)>?” 

2620 pulsas=UPPERS(INKEYS)> 

2630 IF pulsa$="" OR (pulsa$<>”S” AND pulsa$<>”N”> THEN 2620 
2640 IF pulsa$="S” THEN GOTO 190 ELSE CLS: END 

2650 REM ] 

2660 REM aaa SOSA EOS 

2670 REM Xxx DATAS DE CREACION DE PANTALLAS xxx 

2680 REM AMOROSOS Aldo IO ICIORK 

2690 REM 

2700 REM DIBUJO1 


o AA li pl di er le er pro rd) 
A A A o A A E A e o A ie id pe 
2730 DATA 0,0. .0,0,00,1., 0, 0,0, /0., 07), 1 
EEN DETUT 05, 0 O O O A A O TONO EMO A 
2750: DATA: 0004199) ato e 0 de Os ¿0 di O a El 
LeGO DATA 007 10) EOS pu O A OI 100 0 A OÍ QA E 
LUTO DATA O 00 ADA O A O A O OAMI 
SID IDATADO 05, 10 A OS O TON OA O IO LI 
2(904DATA: > 5400, mito 10 2D 104 00 Ord o ri nd a 
CODO PDATAL= 0 OTE A E MIA LO A O 1 


2810 REM DIBUJO2 


202 9/DATA TO AO OE MONCLOA O O O 
2O3SPIDATA On 00 1101 5er de a o Di DO vs O 
LOLODATA O a ds o a a A O O 
Coso DADA OM QU AD A AL O O 
Ca O IDREARO O) O) A A A PAS a DA A IDA O 
29/04 DATA 05001 Sd ds A E di o AO ns 0 
AA A E o SS A 
ZOIOMDARADO 0 ROD AOS BAS TN LE A! E OL a OO E O 
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yd: 7.52 1 
1 


0 


o, 


2900 DATA 0, 


0 


e 


o, 


2920 REM DIBUJOS 


2910 DATA 0, 
2930 DATA 
2940 DATA 
2950 DATA 
2960 DATA 
2970 DATA 
2980 DATA 
2990 DATA 
3000 DATA 


pp e Po A AE O O A A 
1 1 


Y 
1 


1 
1 
1 


si, 


DY AL 


, 


3010 DATA 
3020 DATA 


3030 REM DIBUJO4 


ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
ooo 
00. 
OA 
e + A 
«4 «A « 
EEE 
<<< 
AAA 
ooo 
+ 1600 
ooo 
00 


ooooo 
ooooo 
Ooooo 
Oooooo 
OO0OO0Oo ms 
O00 +. 
004“ $ 
O AA? 
E 
A AAA 
A AA 
A Ar? 
<< <<< 
EPEE 
AAAAA 
OoOo0ooo 
ooo 
OOO $.s$ 
000 


1 
1 


3140 REM DIBUJOS 


3120 DATA 
3130 DATA 
3150 DATA 0 


(o) 


1 


3160 DATA 
3170 DATA 
3180 DATA 


E 
1 


3190 DATA 0 
3200 DATA 


0 


0 


o, 


3210 DATA 0, 


3220 DATA 0, 


1 


3230 DATA 0 


1 


3240 DATA 
3250 REM DIBUJOG 


1 
1 


3260 DATA 
3270 DATA 
3280 DATA 
3290 DATA 
3300 DATA 


1 
El 
1 


1 


3310 DATA 0 


, 


3320 DATA 0 


o, 


3330 DATA 0 


, 


3340 DATA 0 


0 


3360 REM DIBUJO? 
3370 DATA 
3380 DATA 
3390 DATA 


3350 DATA 0 


1 
pj 
1 
1 


3410 DATA 0 
3420 DATA 
3430 DATA 
3440 DATA 
3450 DATA 
3460 DATA 


3400 DATA 


1 
di 
1 
1 
1 


1 
1 


3470 REM DIBUJOS 


1 


3480 DATA 0 
3490 DATA 
3500 DATA 
3510 DATA 
3520 DATA 
3530 DATA 
3540 DATA 
3550 DATA 


, 


1 


1 
1 


1 
1 
We 
1 
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1 


3560 DATA 


E ES 


3570 DATA 0, 
- 3580 REM DIBUJO9 


1 


3590 DATA 0 
3600 DATA 
3610 DATA 
3620 DATA 
3630 DATA 
3640 DATA 
3650 DATA 
3660 DATA 
3670 DATA 


1 
1 
1 
1 


1 


Lugr/ 


3680 DATA 0 


em 


3690 REM DIBUJO1O 


3700 DATA 1, 
3710 DATA 
3720 DATA 
3730 DATA 
3740 DATA 
3750 DATA 
3760 DATA 
3770 DATA 
3780 DATA 
3790 DATA 


0 


o, 


1 


1 
1 
1 


1 
1 


, 


1 


3800 REM DIBUJO11 


3810 DATA 


1 


0,1 


1, 


3820 DATA 0, 


O 440 5 
$05" 0 
On om 
$" 0n.-0o 
Ono a. 
$" 0”»0 
O. .o0osm 
“no” 0 
O 10m 
$" 0$ + 0 
Ono 
0”»0 
<A «<< 
E 66 E 
<< <<“ 
anAaaRa 
oooso 
O +00 
90020 
0000 


1 


3870 DATA 


Ls rn ¿La e Dio ' 
0 


3880 DATA 0 
3890 DATA 


1 


3900 DATA 0 


3910 REM DIBUJO1L2 


3920 DATA 
3930 DATA 0, 


3940 DATA 
3950 DATA 


1 


1, 


, 1 , 


1 


o, 


o, 


3960 DATA 0, 
3970 DATA 
3980 DATA 


1 


3990 DATA 0, 
4000 DATA 
4010 DATA 


1 
1 


E 


1, 


4020 REX DIBUJO13 


4030 DATA 0 
4040 DATA 
4050 DATA 


1 
1 


1 


4060 DATA 0 


e ei A e 
nn 140. 
$ $. o 
e ” ”? 
On $+*e 
O +” e 
nn nn A 
+ + +0 
$ 1405 
A An 
+05 
< <<< 
<= <S 
ARNRAA 
oooo 
-os$<0>o 
Oo0o0m” 
+33“ 


Vi PAS A AO 
1 


1, 


4110 DATA 1, 


1, 


4120 DATA 0, 


4130 REM DIBUJO14 


4140 DATA 1, 


, 


1 


o, 


4150 DATA 1, 


o0m 
nn a 
Oo mm 
e O 
ODO. 
E] 
oo” 
$” 0.5 
OO” 
<<< 
e € 
< <<« 
aAQnR Ro 
ooo 
or>- o 
A A 
o 


1 


1 


4190 DATA 
4200 DATA 
4210 DATA 


1 
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1 


4220 DATA 
4230 DATA 


4240 REM DIBUJO15 


1 


2 
ás 


o, 
0 


4250 DATA 0, 


a SE! 


4260 DATA 0, 


4270 DATA 0, 


1 


1, 


4280 DATA 0, 


, 


1 
1 
1 
1 


4290 DATA 
4300 DATA 
4310 DATA 
4320 DATA 
4330 DATA 0, 


1 


y , 
1 


4350 REM DIBUJO16 


4340 DATA 0 


1 


4360 DATA 0 
4370 DATA 
4380 DATA 


1 


4390 DATA 0, 


0 


1 


4400 DATA 0 


4410 DATA 0 


4420 DATA 0 


1 


4430 DATA 0 


1 
1 
4460 REM DIBUJO17 


4440 DATA 
4450 DATA 


A 


1 
1 


4470 DATA 
4480 DATA 


1 
0 


4490 DATA 0, 
4500 DATA 
4510 DATA 
4520 DATA 


1 
1 
1 


Y 


, 


1 


4530 DATA 0 
4540 DATA 
4550 DATA 
4560 DATA 


1 


1 
1 


4570 REM DIBUJO18 


4580 DATA 


4590 DATA 0 


1 
1 


4600 DATA 0 


1 


4610 DATA 
4620 DATA 


10,0 


0 


de ql 
1 


1 


4630 DATA 0 


1 


4640 DATA 0 
4650 DATA 
4660 DATA 
4670 DATA 


1 
1 
1 


4680 REM DIBUJO19 


1 


1 


4690 DATA 


4700 DATA 0 


0 


4710 DATA 0, 
4720 DATA 
4730 DATA 
4740 DATA 
4750 DATA 
4760 DATA 
4770 DATA 
4780 DATA 


1 
1 


1 
1 


4790 REM DIBUJO20 


4800 DATA 
4810 DATA 
4820 DATA 


1 
1 
1 


4830 DATA 0 
4840 DATA 
4850 DATA 


1 


0 


0 


4860 DATA 0 
4870 DATA 


1 


1 
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4880 DATA 1,0, 
4890 DATA 1,1, 
4900 REM DIBUJO21 
4910 DATA 1, 
4920 DATA 1 
4930 DATA 0 
4940 DATA 0 
4950 DATA 0 
4960 DATA 0 
0 
1 
1 
1 
B 


oo 
EE 
to 
Ss 

o. 


4970 DATA 
4980 DATA 
4990 DATA 
5000 DATA 
5010 REM DI 
5020 DATA 0 
5030 DATA 1 
5040 DATA 1 
5050 DATA 0 
5060 DATA 1 
5070 DATA 0 
5080 DATA 1 
5090 DATA 1 
5100 DATA 1 
5110 DATA 1 
5120 REM DIBUJO23 

o 

1 

0 

1 

0 

1 

0 

1 

0 

y 

1 


PROP? OR 
a ASAS ode 
A 
ALAS de 
A a TE 


POOPRPRPR PP ee 8 PRPRR?ROOORPRPR 


Pda o E 
A 
po E 
oo ele 


OO0OOrebeRpRpepPp 


5130 DATA 
5140 DATA 
5150 DATA 
5160 DATA 
5170 DATA 
5180 DATA 
5190 DATA 
5200 DATA 
5210 DATA 
5220 DATA 
5230 DATA F 


OPoOrororor 
POPOrPOoOrProro 
OPOrororor 
POrorororo 
OPOrPOPpPOPOP 
E, E 
OPOPOPOPROPp 


Para definir una pantalla sólo tenemos 
que movernos por ésta con las teclas del cur- 
sor y pulsar la barra de espacio para colocar 
o borrar un ladrillo. Una vez que hemos termi- 
nado la definición, para grabar la nueva pan- 
talla en cinta o disco sólo tenemos que pulsar 
la tecla "S”. El ordenador nos creará una rutina 


Fig. 2. 


Po 


PRRPROOODOOrPOPR PROPPOPOOPR 


POrPOrororo 


21 


E 
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l 
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E LO) road, e 
pe pr? 
PA OA 
o EEN AS O: 
A AS MOTE 70 
ROM 504 EÚLO EE HO, 
OE A EQU O 
eS MO IA YO: 
Sn vas Rasa Al 
ULTEO, $ RES 1: 
LA E 
A A SO 
JS 4 gi ef : 
O da al sl 
ES 
OT PU al 
ASES LA 10) 
A a 
IO AA 
a COLO 1 
ea OL id 
o 
0, Le OA E 
A LOs Made LO; 
¡PODA AE DURO 0d 
a ON AS TO 
AMLO PAS GA) EL 
ON UAT AOS 10) 
OT AS OO Td) 
A ap 
ES ERES 


en BASIC que tendremos que unir con el pro- 
grama 2. 

El segundo programa es el que nos per- 
mite jugar con las pantallas que hayamos crea- 
do. De momento, antes de que nosotros cree- 
mos ninguna, ya hay definidas 23. Para mover 
la raqueta tenemos que utilizar las teclas de 
cursor derecha y cursor izquierda. 


Fig. 3. 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


Fig. 4. 


10 REM RARO OOOO OK 
20 REM xxx EDITOR DE PANTALLAS xxx 


30 REM xxx GAMBLE-BRICK AA 
40 REM Xxx Un programa realizado XXxk 
50 REM xxx Por Ak 
60 REM *xx Carlos A. Maria Morin *xx 
70 REM Xxx Xx 
80 REM xxxk (C> Ediciones LS 


90 REM *Xx* Siglo Cultural 1987 xxx 
100 REM AaaMSGSOO Sala 
110 REM 
A IS 
130 REM aaiodiaiOlook INICIALIZACION AMSOIOOIOOIOK 
140 REM aaa lalalala lalalala joa jalalolala lalalala 
150 REM 
160 MODE O 
170 LOCATE 1,12 
180 PRINT"EDITOR DE PANTALLAS” 
190 PRINT 
200 PRINT” GAMBLE--BRICK ” 
210 FOR ret=1 TO 3000 
220 NEXT 
230 SYMBOL AFTER 230 
240 SYMBOL 233,0,0,0,31,31,31,0,0 

.S 250 SYMBOL 234,0,0,0,255,255,255,0,0 
260 SYMBOL 235,0,0,0,248,248,248,0,0 
270 SYMBOL 236,0,254,254,254,254,254,254,254 
280 SYMBOL 237,0,255,255,255, 255, 255,255,255 
290 SYMBOL 238,0,127,127,127,127,127,127,127 
300 SYMBOL 252,63,252,63,252,63,252,63,252 
310 SYMBOL 253,170,170,255,255,255, 255,85,85 
320 SYMBOL 254,60, 126,255, 255,255,255, 126,60 
330 CLEAR 
340 DIM matriz(12,11> 
350 y%=383 
360 x%=32 
370 PEN 1 
380 lad$=CHR$ (238)+CHR$S (237) +CHR$ (236) 
390 lad25=CHRS (233) +CHR$ (234) +CHRS (235) 
400 MODE 1 
410 REM 
A IS 
430 REM AXMXXkkk PREPARA LA PANTALLA doMoidiook 
440 REM aialEjdalalalalalalalalalajalaaalalaalalalalalalalolalalalalalojojok 
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450 REM 

.460 FOR xx=2 TO 39 

470 LOCATE xx, 1 

480 PRINT CHR$(253) 

490 NEXT 

500 FOR xx=1 TO 40 STEP 8 

510 LOCATE xx, 1 

520 PRINT CHR$(254> 

530 NEXT 

540 LOCATE 40,1 

550 PRINT CHRS(254) 

560 FOR yy=2 TO 24 

570 punta=punta+1 

580 LOCATE 1, yy 

590 PRINT CHR$(252) 

600 LOCATE 40, yy 

610 PRINT CHR$(252) 

620 IF punta=8 THEN GOSUB 1110 

630 NEXT 

640 RESTORE 

650 FOR yy=2 TO 11 

660 FOR xx=3 TO 36 STEP 3 

670 READ a : 

680 matriz((xxX3)>,yy-1)=-1 

690 1F a=1 THEN LOCATE xx, yy: PRINT lads 

700 NEXT 

710 NEXT 

720 LOCATE 4,20 

730 PRINT"PULSA (S) PARA SALVAR LA PANTALLA.” 
740 PRINT CHR$(23)>;CHR$(1>; 

750 TAG 

760 GOSUB 1040 

770 REM 

780 REM aaaRalalaodlaldlSjalalalalalalololajalalalalalalalalelaloloíaolciolK 
790 REM AMOO KA MUEVE CURSOR-aMSodlOaoO look 
800 REM 3d lll 
810 REM 

820 WHILE as<>” " 

830 as=UPPERSC(INKEYS) 


840 IF INKEY(1>=0 THEN GOSUB 1040: x%=MIN(x%,512)+48:GOSUB 1040 
850 IF INKEY(8)=0 THEN GOSUB 1040: x%=MAX(x%,80)-48: GOSUB 1040 
860 IF INKEY(0)=0 THEN GOSUB 1040: y%=MIN(y%,367>+16: GOSUB 1040 
870 IF INKEY(2>)=0 THEN GOSUB 1040: y%=MAX(y%, 255)-16: GOSUB 1040 
880 IF as="S"” THEN GOTO 1220 

890 xx=(((x4x16)-2)/3)+1 

900 yy=((400-y%>16) 

910 FOR ret=1 TO 50 

920 NEXT 

930 WEND 

940 as="" 

950 GOSUB 1070 

960 matriz(xx, yy>=NOT(matriz(xx, yy)> 

970 SOUND 1,100,5,15 

980 GOTO 820 

990 REM 

1000 REM ASEO laalal”lalalElalElalalalalalalalalalalolallolalolok 

1010 REM xoxkkx DIBUJA CURSOR Y LADRILLO xo 

1020 REM aeaalalalalalalolo la lalolalalalalalalololalalolalalalalalalolololcoK 

1030 REM 

1040 MOVE x%, y% 

1050 PRINT lad2$;- 

1060 RETURN 

1070 MOVE x%, y% 

1080 PRINT ladS; 

1090 RETURN 

1100 REX :::: SUBRUTINA DE PREPARADO DE PANTALLA :::: 
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1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


punta=0 

LOCATE 1,yy 

PRINT CHR$(254>; 

LOCATE 40, yy 

PRINT CHR$(254> 

RETURN 

REM 
III 
REM * PIDE DATOS PARA GRABACION DEL PROG x* 
REM SSSSSSIOIOOOS OS dj dalla jOK 
REM 

TAGOFF 

MODE 2 

LOCATE 1,1 

INPUT "Nombre de la pantalla (?????7?7?):”;pas 
IF LEN(pa$>>8 THEN 1230 

LOCATE 1,3 

INPUT "Extension (.7?7?7?):”;ex$ 

IF LEN(exS>)>4 THEN 1270 

LOCATE 1,5 

INPUT "Comienza en la linea:”;linea 

IF linea>65500 OR linea<1 THEN 1300 
pant$=pat+ex$ 

OPENOUT pants$ 

FOR yy=1 TO 10 

linea=linea+10 

PRINT+*9, linea;” DATA ”; 

FOR xx=1 TO 12 

PRINT*9, -matriz(xx, yy); 

IF xx<12 THEN PRINT*9,”,”; 

NEXT 

PRINTH9,”” 

NEXT 

CLOSEOUT 

GOTO 330 

REM 

REM AMS IOIOIOJOJOK 
REM AMSIGMIOGIOOIOIOIO ARK DATAS dORaOOIOOIOOIOOJo XK 
IS 
REM 


DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DADA 01,152,151, 2,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,1,1,1,1,1,1,1,1,1,1,1 
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EMOS visto en tomos ante- El programa ha sido realizado de forma 
riores algunos programas que nos pueda representar cualquier función 
que nos servían para repre- que deseemos. Podemos elegir la escala en X 
sentar funciones en los dis- yen Y. Podemos ampliar cualquiera de los dos 
tintos ordenadores de los ejes, cuadricular la gráfica, etc. 

que hemos hablado durante En la figura 1 podemos ver el menú que 
esta colección. Ahora letoca nos aparece una vez introducido y ejecutado 
el turno al SPECTRUM con el programa. 

una versión de este mismo programa. 


100 DEF FN R(S)=INT (S*1000)/1000 
110 DEF FN J$(S)=STR$ S+" "( TO ABS (7-LEN STR$ S)) 
120 REM 

130 REM oooO lolOlolojalojalolok 
140 REM * INICIALIZA ON ERROR x* 
150 REM aaa llOlalalolalolok 
160 REM 

170 RESTORE 9120 

180 FOR 1=65368 TO 65439 

190 READ A 

200 POKE I,A 

210 NEXT I 

220 REM 

230 RANDOMIZE USR 65368 

240 REM 

250 REM MAMAS llo llololoK 
260 REM *  INICIALIZACION  x 
270 REM Aso lIOOlIOIoJK 
280 REM 

290 DIM A(3) 

300 LET Al=1 

310 LET A2=1 

320 LET AU=1 

330 LET X5=0 

340 LET S=0 

350 DIM T(2) 

360 LET P$="TSSSSNN" 

370 LET X$="X" 

380 REM 

390 REM aaaloalaaloaalalalalolalollalolololok 
400 REM * PROG. PRINCIPAL: MENU x 
410 REM sasladlodoaalolafalolallolollololok 
420 REM 

430 CLS 
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440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1165 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

- 1250 

1260 

1270 

1280 

1290 

1300 

1310 

| 1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


PRINT 

PRINT 

PRINT TAB 7;"G RAF ICAS" 

PRINT TAB 7; "2==============" 
PRINT 

PRINT 

PRINT 

PRINT TAB 4;"1...Dibujar grafica." 
PRINT TAB 4;"2...Escribir formula, " 
PRINT TAB 4;"3...Definir formato." 
PRINT TAB 4;"4...Salir del programa. " 
PRINT AT 21,8;"<<ELIGE OPCION>>" 


LET K$=INKEYS 

IF K$="" THEN GO TO 560 

IF K$>"4" OR K$<"1" THEN GO TO 560 
IF K$="1" THEN GO SUB 1000 

IF K$="2" THEN GO SUB 2010 

K$="3" THEN GO SUB 3010 

K$="4" THEN GO SUB 4000 

TO 390 


REM aaa aaa Rallo ak ak 
REM xx DIBUJA EJES * 
REM Adol lalolalola fallado 
CLS 

REM 

REM ** DIBUJA EJE X *x 

REM 

IF P$(2)="N" THEN GO TO 1110 
PLOT 0,87 

DRAW 175,0 

REM 

REM ** DIBUJA EJE Y x*x* 

REM 

IF P$(3)="N" THEN GO TO 1165 
PLOT 87,0 

DRAW 0,175 

IF p$(7)="S" THEN GO SUB 8500 
REM 

REM olla a lcd ld lol al ak 


REM *  DIBUJA RECUADRO xk 
REM aaa lolaljalolojojok 
REM 

PLOT 175,0 

DRAW 80,0 

DRAW 0,175 

DRAW -80,0 

DRAW 0, -175 

REM 

REM * SELECCION DE ESCALA * 
REM x* Y DE AUMENTO k 
REM 


PRINT AT 1,22;"Escala X:" 
PRINT AT 2,23;FN JS(FN R(A1)) 
INPUT LINE K$ 

IF K$<>"" THEN LET A1=VAL Ks$ 
PRINT AT 2,23;FN J$(FN R(A1)) 
PRINT AT 3,22;"Escala Y:” 
PRINT AT 4,23;FN JS(FN R(A2)) 
INPUT LINE Ks$ 

IF K$<>"" THEN LET A2=VAL K$ 
PRINT AT 4,23;FN JS(FN R(A2)) 


32 


1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1685 
1690 


PRINT AT 5,22;"X="; INT (1000x87/A1)/1000 
PRINT AT 6,22;"Y="; INT (1000*87/A2)/1000 

LET t(1)=0 

PRINT AT 7,22;"Ampliac.X" 

PRINT AT 8,22;"(0-9) :";t(1) 

INPUT LINE k$ 

IF LEN k$<>1 AND K$<>"" THEN GO TO 1460 
PRINT AT 8,29;k$ 

IF k$<>"" AND (k$<"0" OR k$>"9") THEN GO TO 1430 
LET t(2)=0 

PRINT AT 9,22;"Ampliac. Y” 

PRINT AT 10,22;"(0-9) :";t(2) 

INPUT LINE j$ 

IF LEN ¿j$<>1 AND J$<>"" THEN GO TO 1530 
PRINT AT 10,29;J$ 

IF j$<>"" AND (j$<"0" OR j$>"9") THEN GO TO 1500 
IF k$="" THEN LET t(1)=1: GO TO 1590 

LET t(1)=10x(1+VAL k$) 

IF j$="" THEN LET t(2)=1: GO TO 1610 

LET t(2)=10x*(1+VAL J$) 

IF p$(4)="S" THEN GO TO 1690 

REM 

REM ASS SSO Olla kok 

REM * SELECCION DE PASO x 

REM asaOSS OOOO jOlolEjdlS Ola lolo lolo lolo 

REM 

PRINT AT 11,22;"STEP:";AT 12,23;FN J$(FN R(S)) 
INPUT $S 

PRINT AT 12,23;FN J$(FN R(S)) 


IF P$(4)="S" THEN LET S=2/A1: PRINT AT 11,22; "STEP Auto"; OVER 1; 


,23;FN R(S) 


1700 
1705 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1990 
1995 
2000 
2010 
2020 
2030 
2040 
2050 
2080 
2070 
2080 
2090 


LET DIBU=5000 

IF p$(1)="T" THEN LET DIBU=8000 
REM sa S SS SSOlSo Salado lolo lOJOK 

REM * DIBUJAR LA GRAFICA * 

REM ASS OSO lola llolOIOIOJOIOK 

REM 

LET INI=X5 

LET FIN=87/A1 

PRINT AT 13,22; "Funcion: " 

LET m$="f(x)" 

LET xpos=x5 

LET ypos=0 

GO SUB DIBU 

LET M$="f(-x)” 

LET xpos=-87/a1 

LET ini=-87/a1 

LET fin=x5 

LET ypos=0 

GO SUB DIBU 

PRINT +1; "PULSE UNA TECLA PARA CONTINUAR" 
PAUSE O: RETURN 

REM 

REM SSSOSS OOO lolOjlolOlolololKok 

REM * CAMBIO DE FORMULA  x 

REM ASS KKoKok 

REM 

CLS 

PRINT 

PRINT "CAMBIO DE FORMULA" 
PRINT "===222I==nr==22=22IIIci2:20====" 
PRINT 
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2100 PRINT 
2110 PRINT "Formula: ”" 
2120 PRINT x$ 
2130 PRINT 
2140 PRINT "Nueva formula ?” 
2150 INPUT LINE t$ 
2160 IF t$="" THEN RETURN 
2170 FOR i=1 TO LEN t$ 
2180 IF t$(1)="X" OR t$(1)>="RND" OR t$(1)<"A" OR (T$(1)>"Z" AND T$(1)<"_") THEN 
NEXT i: GO TO 2240 
2190 PRINT 
2200 BEEP .1,24 
2210 PRINT “Formula erronea:pulse una tecla. " 
2220 IF INKEYS$="" THEN GO TO 2220 
2230 RETURN 
2240 LET x$=t$ 
2250 RETURN 
3000 REM 
3010 REM ES 
3020 REM * DEFINIR FORMATO k 
3030 REM AMM lao OJOJolk 
3040 REM 
3050 CLS 
3060 PRINT 
3070 PRINT TAB 4; "DEFINICION DEL FORMATO" 
3080 PRINT TAB 4; "oo=coss=s=s=coss==========" 
3090 PRINT 
3100 PRINT 
3110 RESTORE 
3120 FOR F=1 TO 7 
3130 READ A$ 
3140 READ N$ 
3150 READ M$ 
3160 PRINT M$;P$(F);")": PRINT AT 4+F,LEN M$; 
3170 LET K$=INKEY$ 
3180 IF K$="" THEN GO TO 3170 
3190 IF CODE K$>90 THEN LET K$=CHR$ (CODE K$-32) 
3200 IF K$<>"" THEN IF K$=A$ OR K$=N$ THEN LET P$(F)=K$ 
3210 IF K$<>A$ AND K$<>N$ THEN PRINT : GO TO 3230 
3220 PRINT P$(F) 
3230 NEXT F 
3240 RETURN 
4000 REM 
e 4010 REM oo IA MASAS IOJOIOJOKOK 
4020 REM * SALIDA DEL PROGRAMA * 
4030. REM AMAIA YAOI lOJOIOoJOJOKK 
4040 REM 
4050 STOP 
5000 REM 
5010 REM Asa SOMO OOOO Ojo kk 
5020 REM * DIBUJO DE PUNTOS k 
5030 REM dao OlS lolo lolOjOlojolololo Jak 
5040 REM 
5050 PRINT AT 14,22;M$ 
5060 FOR x=INI TO FIN STEP s 
5070 GO SUB 8010 
5080 IF XxA1>32750 OR Xx*A1<-32750 THEN RETURN 
5090 LET PX=INT (X*A1x*T(1)) 
5100 LET PY=INT (VAL X$*A2*xT(2)) 
5110 IF P$(6)="N" THEN IF XPOS>87 OR XPOS<-87 OR YPOS>87 OR YPOS<-87 THEN GO T 
O 5130 
5120 PLOT 87+PX,87+PY 
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5130 
5140 
6000 
6010 
6020 
6030 
6040 
6050 
6060 


6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
7000 
7010 
7020 
7030 
7040 
7050 
7070 
7080 
7090 
7100 
7110 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8500 
8510 
8520 
8530 
8540 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 


NEXT X 

RETURN 

REM 

REM oa ISlAS IAS lofMIOJVROIoIOK 
REM x DIBUJO DE TRAZOS *X 
REM SISSI lll 
REM 

PRINT AT 14,22;M$ 


LET X=INI: LET YPOS=INT (VAL XS*xA2*T(2)): LET XPOS=INT (X*A1*xT(1)): PLOT 87 
+XPOS, 87+YPOS 


FOR X=INI TO FIN STEP S 

GO SUB 8010 

IF X*xA1>32750 OR X*A1<-32750 THEN RETURN 
LET PX=INT (X*A1xT(1)) 

LET PY=INT (VAL X3*A2x*T(2)) 


IF P$(6)="N" THEN 1F PX>87 OR PX<-87 OR PY>87 OR PY<-87 THEN GO TO 6150 


DRAW PX-XPOS, PY-YPOS 

LET XPOS=PX: LET YPOS=PY 

NEXT X 

RETURN 

REM . 
IS 

REM * TRATAMIENTO DE ERRORx* 

REM SSI lSjOSalalalolololoK 

REM 

LET LINEA=PEEK 65441+256*PEEK 65442 
IF LINEA<5000 THEN RETURN 

IF LINEA=5120 OR LINEA=5100 THEN GO TO 5130 
IF LINEA=86110 OR LINEA=8130 THEN GO TO 6150 
LET INI=INI+S 

GO TO LINEA 

REM 

REM Soda SlSlOlS a lSlSlSldjSlSOlSlolOjokk 

REM * ESCRIBE COORDENADAS *x 

REM SSI SISSI lOJOJOjOk ok 

REM 

IF p$(5)="N" THEN RETURN 

PRINT AT 15,22;"X:";(INT (xpos*1000))/1000;" 
PRINT AT 16,22;"Y:";(INT (ypos*1000))/1000;" 
RETURN 

REM 

REM Sala alalalOlOlOlOlalololojolok 

REM * DIBUJA CUADRICULA x*x 

REM adaSlOlSlOalSlO ISO lROlSlOlOlOlOlOJOK 

REM 

FOR I=3 TO 175 STEP 7 

PLOT 0, I 

DRAW 175,0 

PLOT 1,0 

DRAW 0,175 

NEXT I 

RETURN 

REM 

REM aSSlSlS SONS lSjOlS ISE lOlolOlO KK 

REM * LINEAS DE DATAS x* 

REM RSS SlSlOlMllalalalolo jolla 

REM 

DATA "P","T","1...Punto o trazo. ( 
DATA "S","N","2...Dibuja eje X. ( 
DATA "S","N","3... Dibuja eje Y. Es 
DATA "S","N","4...STEP Auto. ( 
DATA "S","N","5...Valores de X e Y. ( 
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q 


9100 DATA "S","N","6...Margen cuando XY==>infi. (” 

2110 DATA "8","N","7... Dibuja cuadricula. 

9120 REM 

91390 REM AMM SISI JOIalolojoJOJOK 

9140 REM * DATAS PARA EL C/M * 

9150 REM AAAMOOO look 

9160 REM 

9170 DATA 17,98,255,42,61,92,115,35,114,201,251,59,59,253,126,0 
9180 DATA 80,254,0, 40, 46, 254,21, 40, 42,254,17,40,38,254,13, 40,34 
9190 


9200 


9210 DATA 51,195,3,19 


Fig. 1. Menú principal 


Opción 1. Entramos en la parte del 
programa que nos dibuja la gráfica. Más ade- 
lante hablaremos de esta opción. 

Opción 2. Nos permite cambiar la fun- 
ción que queremos representar. El ordenador 
nos mostrará la función que hay en ese mo- 
mento definida (si hubiese alguna) y nos pide 
que introduzcamos la nueva función. Todos los 
caracteres que tecleemos han de ser en ma- 
yúsculas. Las funciones que utilicemos (como 
COS, SIN, TAN, etc.) han de ser las del SPEC- 
TRUM. Esto es, no podemos teclear la palabra 
COS letra a letra, sino que tenemos que intro- 
ducir la que aparece en el teclado de una sola 
pulsación. 

Opción 3. Nos sirve para definir el for- 
mato de la gráfica. En la figura 2 podemos ver 
las distintas preguntas que nos hace el orde- 
nador para saber cómo queremos visualizar la 
gráfica. 

1. Punto o trazo. Podemos elegir una 
gráfica de puntos o una gráfica de líneas. Hay 
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DATA 254,9,40,30,50, 160,255, 42, 69,92,34,161,255, 253,54, 0, 255, 33 
DATA 88,27,34,66,92,175,253,119,10,253,203,1,254,195,125,27,51 


Fig. 2. Definición del formato de dibujo. 


veces en que es mejor un método que otro, 
pero normalmente queda mucho mejor si ele- 
gimos la opción de trazo. 

2. Dibuja eje X. Para elegir la visuali- 
zación o no visualización del eje X. 

3. Dibuja eje Y. Para saber si quere- 
mos o no visualizar el eje Y y sus subdivisio- 
nes. 

4. STEP automático. Sirve para elegir o 
no el STEP automático. El STEP es el incremen- 
to de X al dibujar la función. Normalmente un 
STEP automático será suficiente para visuali- 
zar perfectamente la gráfica. 

5. Valores de X e Y. Podemos ir vien- 
do qué valores van tomando X e Y según se 
va dibujando la función. 

6. Margen cuando XY tiende a infinito. 
Nos permitirá dibujar las asíntotas verticales, 
cuando existan, en aquellos puntos en que la 
función tiende a infinito. 

7. Dibuja cuadrícula. Para cuadricular 
la pantalla. 


Opción 4. Salimos del programa. 


Fig. 3. 


Si elegimos la opción 1, el ordenador 
nos preguntará la escala que queremos tener 
en X y en Y. El número que nosotros le demos 
actuará como divisor de 200 y el resultado 
será la escala elegida. Así, si al preguntarnos 
la escala introducimos un 2 en X y un 4 en Y, 
la escala será de 100 en X y de 50 en Y. 


También nos preguntará el ordenador 
si queremos ampliación en X y en Y. Debemos 
responder con un número entre 0 y 9. Cuanto 
mayor sea el número, mayor será la amplia- 
ción en el eje elegido. 


Fig. 5. 


Si hemos dicho que no queremos STEP 
automático, entonces el ordenador nos pre- 
guntará por el incremento de X que queremos 
que el programa utilice al representar la fun- 
ción. Una vez hecho esto, el ordenador empe- 
zará por dibujarnos F(x) y Fx). 
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Acoplamiento de microprocesadores 


A reducción de costes de fa- 
bricación de los micropro- 
cesadores debido a los 
grandes volúmenes en los 
que se producen hace posi- 
ble cada vez más la dedica- 
ción de un micro para cada 
tarea en un sistema comple- 
to de control. En muchos casos es convenien- 
te realizar funciones de control o supervisión 
de acciones de forma muy precisa y con es- 
pecificaciones de tiempo de respuesta a una 
entrada determinada muy estricta. Especial- 
mente en estos casos es conveniente delegar 
el seguimiento de cada parte del proceso a un 
componente que, con capacidad lógica, pue- 
de realizar las mismas funciones que la unidad 
central pero de manera dedicada. Si las mis- 
mas funciones fueran ejecutadas por el micro- 
procesador principal podrían presentarse si- 
tuaciones en las que por atender a otras tareas 
prioritarias no se pudiera garantizar la res- 
puesta en un tiempo mínimo. 

En el presente volumen se describe una 
forma de acoplamiento de un microprocesa- 
dor de propósito general, pero con orientación 
especial al control, a un ordenador personal. 
Se describe una aplicación sencilla de control, 
la forma de conexión al bus del ordenador 
personal, la estructura mínima necesaria para 
su operación y se da una idea de cómo reali- 
zar el programa de control que permita la co- 
municación entre los dos microprocesadores. 
Como el esquema es totalmente general po- 
dría diseñarse un montaje con más de un mi- 
cro, destinándose cada uno de ellos a una fun- 
ción específica. 


Formas de acoplamiento entre 
microprocesadores 


Atendiendo principalmente a la forma 
en que comparten los micros, los elementos 
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comunes podemos distinguir varios tipos de 
acoplamiento: 


— Acoplamiento íntimo: Los diferentes 
micros comparten la memoria y los perifé- 
ricos, a través de uno o más buses. Es nece- 
sario un mecanismo de resolución de los con- 
flictos que se puedan presentar al pretender 
utilizar un mismo recurso más de un micro. La 
memoria compartida puede ser de doble 
puerta, con lo que se eliminan los conflictos en 
el acceso simultáneo. 

— Acoplamiento alejado: La conexión 
se hace a través de líneas de interconexión 
con intercambio de mensajes, según un proto- 
colo similar al empleado en la conexión de pe- 
riféricos. Podría también describirse como 
que para cada micro el otro es un periférico 
externo. 

— Acoplamiento intermedio: El ele- 
mento común utilizado en el intercambio es 
poseído por uno de ellos y se presenta al otro 
como un puerto de comunicaciones, por el que 
intercambia mensajes, siendo uno de los mi- 
cros el responsable del mantenimiento del 
protocolo y el otro opera como esclavo de las 
acciones del principal. 

La aplicación de cada uno de los tipos 
depende de varios factores; 


— Potencia individual de cada uno de 
los micros. 

— Autonomía de funcionamiento, 

— Propósito de la delegación de funcio- 
nes. 


Un caso particular del primer tipo son 
los coprocesadores o procesadores auxiliares, 
muy frecuentes en los ordenadores persona- 
les, que permiten aumentar la potencia para 
algunas aplicaciones, mediante el aumento del 
número de instrucciones y el de registros ope- 
rativos, con lo que se reduce el tiempo de eje- 
cución de determinadas funciones. Los copro- 
cesadores comparten la memoria con el micro 
principal, pudiendo trabajar en paralelo con 
él una vez que han cargado los registros in- 
ternos con los operandos necesarios, indicán- 
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dole la finalización de la operación mediante 
una interrupción específica. 

Del segundo tipo pueden considerarse 
los sistemas de control distribuido, en los que 
un micro central asigna a cada uno de los pe- 
riféricos las tareas específicas, pudiendo cada 
uno de ellos operar de forma autónoma duran- 
te la mayor parte del tiempo. 

Del tercer tipo tenemos como ejemplo 
la mayoría de los dispositivos controladores 
de comunicaciones, que se presentan al micro 
principal como puertos de entrada/salida. Sin 
embargo, para transmisión síncrona a alta ve- 
locidad es frecuente la utilización de acceso 
directo a memoria, por lo que el sistema sería 
entonces como el primer tipo. 

El ejemplo que se va a describir es del 
tercer tipo, pues la comunicación es como si 
se tratara de intercambio de datos a través de 
puertos paralelos. 


Microprocesador auxiliar 


Consideremos un ejemplo real: Se ne- 
cesita realizar el control de una máquina me- 
diante el accionamiento de un conjunto de se- 
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ñales binarias y como resultado de la medida 
de unas señales que se presentan también 
como señales binarias. El microprocesador 
que realice el control recibirá instrucciones 
desde un ordenador personal, siendo el cam- 
bio de las instrucciones recibidas de priori- 
dad inferior a su ejecución. Es decir, el micro 
auxiliar deberá atender prioritariamente el 
control de la máquina de acuerdo con los va- 
lores de consigna dados, cambiándolos cuan- 
do haya recibido un bloque completo de ins- 
trucciones nuevas. 

Un micro idóneo para la realización de 
estas funciones es el 8031 de Intel. Este micro 
se presenta con diferentes variantes de canti- 
dad y tipo de memoria interna y número va- 
riable de puertos. Según la versión se deno- 
mina 8051, 8052 u 8751 si posee memoria 
EPROM interna. El micro sin ROM interna se 
denomina 8031, siendo necesario utilizar uno 
de los puertos completo y parte de otro para 
la conexión con la memoria externa. En un mi- 
cro muy difundido y económico, presentando 
un juego de instrucciones muy variado y efi- 
ciente para aplicaciones de control y comuni- 
caciones. 


La estructura interna del micro es: 


INTERRUPCION Fig. 1. Diagrama 


de bloques del 
TEMPORIZADOR — nte] 8031, 


Los elementos principales son: 


— Unidad aritmética y lógica, que in- 
cluye un procesador booleano que trabaja di- 
rectamente con bits individuales. 

— Memoria RAM. 
Memoria ROM de programa. 
Registro de estado. 
Registro de interrupciones. 
Temporizadores. 
Puertos de entrada/salida. 
Serializador/deserializador. 
Cuatro bancos de ocho registros 
cada uno. 

— Circuito de reloj. 


La configuración de los pines del circui- 
to dedicados a entrada/salida se hace en las 
primeras instrucciones ejecutadas, con lo cual 
se activan los caminos que ponen en comuni- 
cación los bloques internos con las patillas de 
salida. Así, por ejemplo, se define la memoria 
externa mínima, con lo que se asignan los pi- 
nes necesarios para los bits de direcciona- 
miento. 

Para construir un sistema completo con 
este micro es necesario añadirle los siguien- 
tes componentes externos: 


— Componentes para fijar la frecuen- 
cia del reloj. 


7415245 


DO D1.0 
Dl D1.1 
D2 D1.2 
D3 D1.3 
D4 D1.4 
DS D1.5 
D6 D1.6 
D7 P1.7 
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— Memoria de programa, en la versión 
sin programa interno. 

— Ampliación de memoria de datos. 

— Interfaz de comunicación con la má- 
quina a controlar. 

— Circuito de arranque. 

— Circuito de desdoblamiento de di- 
rección/datos. 


Conexión con el ordenador personal 


El intercambio de datos entre el órde- 
nador personal y el micro acoplado se hace a 
través de un puerto paralelo. Para que el in- 
tercambio sea recíproco el enlace se hará bi- 
direccional. Uno de los dos micros deberá 
controlar en qué dirección se está comunican- 
do e indicárselo al otro mediante señales apro- 
piadas. El conjunto de secuencias de inter- 
cambio será el protocolo de comunicación. El 
protocolo deberá evitar cualquier estado de 
bloqueo y garantizar la prioridad en el senti- 
do que interese, generalmente la información 
de los datos de entrada. 


Ejemplo de montaje 
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Fig. 2. Esquema 
de circuito práctico. 
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El circuito que se muestra es una apli- 
cación del 8031 conectado a un ordenador 
personal de tipo IBM PC, aunque puede adap- 
tarse a cualquiera de los demás descritos con 
la ampliación de puertos de entrada/salida. Se 
utiliza una sola dirección de puerto de forma 
bidireccional, para comunicación con el orde- 
nador personal. 

Como puede apreciarse, la mayoría de 
los bits de puertos de 8031 han sido utilizados 
para la ampliación de memoria y la comunica- 
ción con el ordenador principal. En el caso de 
necesitar más puertos de entrada/salida se 
podría ampliar mediante la conexión de regis- 
tros de tipo 7415374 para las salidas y de puer- 
tas de tipo 7415240 para las entradas, conec- 
tándose los terminales al bus común de datos 
y la decodificación a las líneas de dirección. 
También puede ampliarse de igual forma la 
memoria tanto ROM como RAM, utilizando el 
bus de datos y las líneas de dirección. Los 
equipos destinados a una aplicación definitiva 
se diseñan con toda la memoria internamente, 
con lo que todas las líneas pueden destinarse 
a señales de puertos de entrada/salida. 


Programación del microprocesador 
externo 


El programa a ejecutar en el micropro- 
cesador externo debe estar realizado con las 


Juego de instrucciones del 8031 


Operaciones aritméticas 


ADD Suma entre acumulador y los 
diferentes registros. 

ADDC Suma con acarreo. 

SUBB Resta con acarreo. 

INC Incrementa acumulador, re- 
gistros o memoria. 

DEC Decrementa. 

MUL Multiplica registros A y B. 

DIV Divide A entre B. 

DA Ajuste decimal de la opera- 


ción última. 
Operaciones lógicas 


ANL AND lógico entre acumula- 


dor y registros o memoria. 


instrucciones propias. Si el programa de con- 
trol es pequeño podríamos realizar un ensam- 
blaje “a mano” mediante el libro de instruccio- 
nes propio. Para realizar una aplicación seria 
es necesario contar con un sistema de de- 
sarrollo que incluya un ensamblador y un 
montador de programas, que muy posible- 
mente exista para nuestro ordenador perso- 
nal. De todos modos, es una tarea delicada en 
general. 

A partir de arrancar la máquina el mi- 
cro externo operará de forma independiente, 
debiendo disponerse de alguna señal de in- 
terfaz que indique cuándo el micro principal 
tiene datos para comunicar. Esta señal será 
una de las de la interfaz en paralelo, que se 
cargará desde el micro principal mediante 
una sentencia POKE o similar. Al captar el mi- 
cro esclavo que hay un dato disponible en el 
puerto de comunicación, se activará una ruti- 
na que leerá del puerto el dato de entrada, de- 
biendo marcar de forma automática que el 
dato ha sido leído, para indicar al principal 
que puede proseguir con la comunicación. 

Cuando es el micro esclavo el que tie- 
ne un dato para enviar al principal, lo pondrá 
en el puerto de comunicación y activará una 
señal de comunicación. Esta señal deberá in- 
terrumpir al micro principal, que en general 
estará realizando otras actividades. Al termi- 
nar el proceso en curso el micro principal lee- 
rá del puerto y notificará que el dato ha sido 
leído, permitiendo al micro esclavo proseguir. 


ORL OR. 

XRL OR exclusivo. 

CPL Complementa acumulador. 

RL Rotar a izquierda. 

RCL Rotar a izquierda con 
acarreo, 

RR Rotar a derecha. 

RRC Rotar a derecha con acarreo. 

SWAP Intercambia los cuatro bits al- 


tos con los bajos en acumula- 
dor. 


Movimientos de datos 


MOV Mueve entre registros, acu- 
mulador y memoria. 
MOVC Movimientos de datos con re- 


lación al puntero, 
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MOVX 
PUSH 
POP 
XCH 


XCHD 


Movimientos desde la memo- 
ria externa al acumulador. 
Salva en la pila. 

Restaura desde la pila. 
Intercambia registros con 
acumulador. 

Intercambia RAM con acumu- 
lador. 


Operaciones con el procesador booleano 


JNB 
JBC 


JMP 


JZ 
CINE 
DJNZ 


Saltar si un bit en 0. 
Saltar si un bit en 1 y ponerlo 
a0. 


Salto indirectó relativo al 


puntero DPTR. y 

Salto si el acumulador es 0. 
Compara acumulador con 
dato y salta si no es igual. 
Decrementa registro y salta 
si distinto de 0. 


e E bit. 4 Ejecución de subrutinas 
CPL lea bate, ACALL Llamada absoluta a subrutina. 
MOV Mueve bit al acarreo. LCALL Llamada larga a subrutina. 
RET Retorno al programa que lla- 
. ; mó. 
Cambios de aci RETI" Retorno de interrupción. 
JC Saltar si acarreo puesto. AJMP Salto absoluto. 
JNC Saltar si ni acarreo. LJMP Salto largo (16 bits). 
JB Saltar si un bit puesto a 1. S]MP Salto corto relativo (8 bits). 
El lenguaje nemotécnico utilizado para — DPL = Parte baja del puntero 
este micro incluye como nombres predefini- de datos. 
dos cada uno de los elementos internos que = JE = Registro de permiso de 
tienen significado en el código de operación, interrupciones. 
de acuerdo con la siguiente tabla: — IP = Registro de prioridad 
— ACC = Acumulador. de interrupciones. 
— B = Registro B. — RO..R7 = Registro interno. 
— PSW = Palabra de estado — DPTR = Puntero al área de da- 
(acarreo, número del tos. 
banco, sobrepasa- 
miento). Un programa de ejemplo: para el es- 
— SP = Puntero de la pila. quema presentado el siguiente programa per- 
— DPH = Parte alta del puntero mite contar las transiciones de una señal y co- 


de datos. 


municarlo al micro principal cada cierto tiempo. 


aaa lalalala iaa lalalala lalalala coco jdloplodiadodalociooicicdiodiookk 
ARANA RAAE AA Programa para el 8031-1 RRA RARA 
JOAO OOOO ICI RIOR IO RODIOOoO KA 


xk 


ADDRESS EQU x*30” 
MODULO EQU x*31” 
SLOT EQU 32 
x 
DPF EQUB ACC.7 
IPF EQUB ACC.5 
OPFB EQUB ACC. 1 
x 
CODE START RESET 
ACALL INICIA_PUERTOS 
x 
 LOOP1i ACALL GET_PORT_A Bucle principal 


MOV ADDRESS, A 


ACALL GET_PORT_A 


MOV MODULUS, A 
mov SLOT, $0 


EL TALLER DE HARDWARE 


LO0P2 MOY A, SLOT 
ACALL —— NO_FRAME 
ACALL — PUT_PORT_A 
INC SLOT 
mov AH16 
CINE A, SLOT, LOOP2 
* 
sJMP LOOP1 
x 


NO_FRAME CLR ec 
SUBE A, ADDRESS 
Je S_A 
PUSH E 
MOV E, MODULO 
DIV AB 
MOV A, B 
POP B 
JNZ S_A 
AJMP s_P 
* 
S_A mov B, HO Señal recibida A 
RET 
* 
s_P MOV B,+$H1i Señal recibida P 
RET 
* 
GET_PORT_A  MOVX A, DRÍ 
JNB IPF,GET_PORT_A 
MOVX A, DRO 
RET 
* 
PUT_PORT_A MOVX A, RI 
JNB OPF,PUT_PORT_A 
MOV A,B 
MOVX DRO,A 
RET 
xk 
PUT_PORT_B MOVX A, 9RÍ 
JNB OPFB,PUT_PORT_E 
mov RO, $1 
MOV A,B 
MOVX DRO,A 
MOV RO, $0 
$ RET 
* 
INICIA_PUERTOS MOV P2,%4HI(PORTS) Configura los puertos 
MOV RO, $3 
mov As HX"F4” 
MOVX DRO,A 
mov RO, $0 
MOV R1,%$2 
RET 
* 
END 
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El programa debería ser grabado en la 
memoria externa de solo lectura, utilizando 
una memoria EPROM como la indicada en el 
esquema. La grabación de la memoria se rea- 
lizará con el módulo descrito para grabación 
de EPROMS de un tomo anterior, a partir del 
programa ensamblado. 


Conclusión 


La conexión de microprocesadores en 
paralelo permite conseguir mayores presta- 
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ciones en la ejecución de un procéso si se 
asigna a cada uno de ellos las actividades idó- 
neas para las que han sido diseñados. Los re- 
querimientos físicos para la comunicación son 
simples, aunque aumenta la complejidad de la 
depuración del programa, al ser unidades in- 
dependientes y en general con procesadores 
que ejecutan códigos de instrucción diferen- 
tes. De todas maneras, es cada vez más fre- 
cuente encontrar en cualquier ordenador per- 
sonal más de un micro que trabaja en paralelo 
con el micro principal. 


APRENDER CON EL ORDENADOR 


NATURALEZA Y TECNOLOGIA 


Electrónica: corriente alterna 


NA corriente alterna es 

aquella que cambia de sen- 

tido periódicamente. El re- 

corrido que realizan las par- 

tículas hasta volver a su po- 

sición de origen se le deno- 

mina ciclo. El período (T) 

será el tiempo que tardan 

estas partículas en realizar un ciclo. La fre- 

cuencia (F) será el número de ciclos que se 
realizan en un segundo. 

La electricidad que hay en tu casa y 

que alimenta tu ordenador es una corriente al- 

terna de frecuencia igual a 50 ciclos/segundo. 


Generación de la corriente alterna 


Al girar una espira dentro de un cam- 
po magnético, este campo da origen a una 
fuerza electromotriz inducida y a una corrien- 
te en la espira. Así, pues, es fácil deducir que 
el período de la corriente alterna producida 
es igual al período de giro de la espira. 


W = 2:PI/T = 2«PI.P 


W es la velocidad angular que también es lla- 
mada pulsación. 

Teniendo en cuenta la definición de flu- 
jo magnético que atraviesa una espira: 


FLUJO = B+S+cos-(W+T) 


La fuerza electromotriz inducida se cal- 
cula como la derivada del flujo respecto al 
tiempo. Teniendo en cuenta esto, podemos ha- 
llar la expresión general de la fuerza electro- 
motriz que se induce en la espira por la pre- 
sencia de un campo magnético; y, en definiti- 
va, la fuerza que genera la corriente alterna: 


f.e.»m = Emax+sen*(W+T) 
Emax es la fuerza electromotriz máxima 
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que puede inducir el campo magnético y que 
tiene como valor: ”. 


Emax = B+S+»W 


Corriente alterna en un condensador 


Si representamos la corriente alterna 
con una función periódica como es el seno, la 
intensidad de corriente alterna es una onda, y 
como tal, son aplicables todas las característi- 
cas de éstas. Así, pues, llamaremos desfase de 
una corriente alterna en un instante dado al ar- 
gumento del seno. 

Con estos datos ya podemos entender 
el efecto de un condensador en un circuito de 
corriente alterna. Un condensador en un cir- 
cuito de corriente alterna produce un desfase 
de 90 grados en la corriente; por tanto, esta in- 
tensidad de corriente irá adelantada 90 gra- 
dos respecto de la tensión en bornas del con- 
densador. 

La capacitancia es un concepto que se 
utiliza para definir la resistencia que ofrece un 
condensador al paso de la corriente alterna: 


Xc =1/(W.C) 


Ces la capacidad del condensador y W la pul- 
sación angular. 


Corriente alterna en una bobina 


Una bobina o autoinducción produce 
sobre la corriente alterna un desfase de 
90 grados; pero esta vez será la tensión en bor- 
nes de una bobina la que irá adelantada 
90 grados respecto a la intensidad. 

La resistencia en corriente alterna de 
una autoinducción será: 


yal .. W.+L 


donde L es el coeficiente de autoinducción de 
la bobina. 
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Tipos de circuitos de corriente 
alterna 


Si combinamos los anteriores elementos 
tanto en serie como en paralelo, surgen los 
distintos circuitos de corriente alterna: 


Circuito R-C. Será aquel que contenga 
resistencias y condensadores en serie o en pa- 
ralelo. 

Circuito R-L, formado por bobinas y re- 
sistencias. 


REMIGIO OOO OOOO OOOO 
REMX PROGRAMA x 
REMK DE X 
REMK CUADRICAS xk 
REMIGIO OOOO NOOO OOOO 
REMY VAL.TDC PARA AMSTRAD Xk 


Circuito L-C, formado por bobinas y 
condensadores. 


Circuitos R-L-C, formados por resisten- 
cias, bobinas y condensadores. Este es el cir- 
cuito que vamos a estudiar en el programa. 
Hay que hacer notar que si el circuito es 
R-L-C, éste oscilará, es decir, la onda de 
corriente y la onda de tensión estarán en fase. 
Esto se producirá sólo a una frecuencia llama- 
da frecuencia de resonancia. 


70 REMK IBM-PC Y COMPATIBLES * 
20 REMKX COMMODORE, SPECTRUM * 
90 REMK Y MSX x 
LOO- REMIARAOOOOONORORIOaolo 
110 CLS 
115 DIM A(4,4):DIM C(4,4):DIM S(4) 
120 PPINT "ESTE PROGRAMA TE CLASIFICA " 
130 SRINT "A PARTIR DE LA ECUACION EN" 
140 PRINT "FORMA MATRICIAL, EL TIPO DE " 
150 PRINT "CUADRICA” 
160 PRINT :*PRINT 
170 REMEXXYPIDO CUADRICAXkx* 
180 FOR F=1 TO 4 
190 FOR C=1 TO 4 
200 PRINT "INTRODUCE ELEMENTO FILA "3F3" COLUMNA "505 
210 INPUT C(F,C) 
215 LET A(5F,C)=C(F,C) 
220 NEXT € 
270 MEXT F 
235 FOR C=1 TO 4 
240 FOR F=1 TO 4 
245 IF C(F,C)<>C(C,F) THEN PRINT "LO SIENTO, ESTO NO ES UNA CUADRICA; NO ES UNA 
MATRIZ SIMETRICA":SOTO 1999 
250 NEXT F 
260 NEXT € 
290 LET N=3:GOSUB 2000 
300 LET CT=DET 
305 ..ET N=4: GOSUE 2000 
20% LET A=DFT 
307 PPINT "EL DETERMINANTE DE A ="3A 
3O8 PRINT "EL DETERMINANTE DE LA CONICA ASOCIADA CT ="3CT 
5 310 TF CT=0 THEN GOTO 1000 
315 REMkXx CT UNIFORME xk 
220 LET RE=CTX(C(1,1)+012,2)) 
770 1F RE>O THEN GOTO £00 
300 LET N=4:GOSUP 2000 
400 LET A=DET 
407 TF RE>O THEN GOTO 600 
404 REMFxCT REAL xxi 
205 TF A=O THEN PRINT "LA CUADRICA ES UN CONO (CUADRICA DEGENERADA) " 
210 IF A>0 THEN PRINT "LA CUADRICA ES REGULAR (HIPERBOLCIDE 1 HOJA)" 
415 JF AXCO THEN THEN "LA CUNDRICA ES REGULAR (HIPERBOLCIDE 2 HOJAS)" 
599 GOTO 1999 
£00 REMYXCT IMAGTNORIOXF xk 
£10 TF A=0 THEN PRINT "LA CUADRICA ES UN CONO IMAGINARIO (CUADRICA DEGENERADA) " 
620 IF A“SO THEN PRINT "LA CUADRICA ES UN ELIPSCIDE ¿CUADRICA REGULAR) " 
999 50TN 1999 
1000 REMXY CT DEGENERADAS k 
1010 LET N=2:GOSUB 2000 
1020 LET M2=DET 
1025 LEFT N=4+G0SUB 2000 
1027 LET A=DET 
1070 TF M2 =30 TUEN GOTO 1500 
1040 1F A750 THEN PRINT "CUADRICA ES UN PARABOLOIDE ELIPTICO (CUADRICA REGULAR) " 


¿GOTO 1100 
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1050 PRINT "CUADKICA ES DEGEMERADA Y FUEDE SER: " 


1060 PRINT 1. CILINDRO ELIPTICO" 
1070 PRINT " 2. CTU,INDRO IMAGINARIC" 
1080 PRINT ” $ 


1100 GOTO 1999 
1500 TF M2=0 THEN GOTO 1700 


. PECTA REAL DE PTOS. SINGULARES" 
1510 15 A7>5Ó0 THEN PRINT "CUADRICA ES REGULAR (FARABOLCIDE MIPERBOLICO) "GOTO 199 


+. CILINDRO HIPERBLICO" 


9 

1520 PRINT "LA CONICA ES DEGENERADA Y PUEDE SER:" 
1530 PRINT " 1 

1540 PRINT " 2% 


1550 GOTO 1999 


DOS PLANOS REALES SECANTES" 


1700 PRINT "LA CONICA ES DEGENERADA Y PUEDE SER:" 


DOS PLANOS REALES PARALELOS” 


SINGULARES PROPIOS" 


- PLOMO DE PUNTOS SINGULARES” 


1710 PRINT 1. CILINDRO PARABOLICO" 
1720 PRINT " 2. 

1730 PRINT ”» 3. RECTA DE PTOS. 

1740 PRINT ” a 

1999 END 


2000 REMXXCAL CULO DEL DETERMINANTEXX*k 
2020 FOR C=1 TON 

2070 FOR F=C TO N 

2040 IF A(F,C)<50 THEN GOTO 2080 

2050 1F F=C THEN LET X=X+1 

2060 NEXT F 

2070 LEY DET=0*G0T0 2999 

72080 FOR 2=1 TO N 


2090 LET CASA(C,J)JILET A(C.J)=At(F,J):LET A(F,J)=CA 


2100 NEXT J 

2110 LET S(10)=A(C,C) 

2120 LET D=1/A(C,C) 

2130 FOR K=1 TON 

2140 LET A(C,K)=DXA (C,K) 
2159 NEXT K 

2160 FOR F=1 TOM 

2170 15 F=C THEN SOTO 2220 
2180 LET D=-A(F,C) 

2190 FOR I=1 TG N 

2200 LET 0(F,1)=A(F,1I)+DrA (C, 1) 
2210 NEXT 1 

2220 NEXT F 

2230 NEXT € 

2240 LET P=1 

2250 FOR J=1 TO N 

2260 LET P=PXS(J) 

2270 NEXT J 

2280 LET DET=PY(-1)X 

2999 RETURN 


Cuádricas 

Como continuación a los dos últimos te- 
mas de cónicas vamos a ver hoy su proyec- 
ción en tres dimensiones, las cuádricas. Estas 
llevan asociadas también una matriz SIMETRI- 
CA, pero esta vez, al ser de tres dimensiones, 
la dimensión de la matriz es 4 x 4. 

Para el estudio de las cuádricas es im- 
prescindible el estudio de una cónica en par- 
ticular Ct, que es el corte de la cuádrica con 
el plano del infinito. 

La clasificación según esta cónica que- 
da, pues: 


Ct REGULAR. Cuando el menor asocia- 
do a A(4,4<>0. 
Si Ct es real, tenemos dos casos: 
1. Si DET(A)<>0 =>CUADRICA RE- 
GULAR. 
1.1. Si DET(A)>0 => HIPERBO- 
LOIDE DE 1 HOJA. 


1.2. Si DET(A)<0 => HIPERBO- 
LOIDE DE 2 HOJAS. 
2. Si DET(A) =0 =>CUADRICA DEGE- 
NERADA. 
2.1. CONO REAL. 
Si CT es imaginaria, tenemos dos casos: 
1. Si DET(A)<>0 =>CUADRICA RE- 


GULAR. 
1.1. Si es real => ELIPSOIDE 
REAL. 


1.2. Si es imaginario => ELIPSOI- 
DE IMAGINARIO. 

2. Si DET(A) =0 =>CUADRICA DEGE- 
NERADA. 
2.1. CONO IMAGINARIO, 

Ct DEGENERADA. Cuando el menor 

asociado a A(4,4) = 0. 

Distinguimos tres casos: 

1. Ctes DOS RECTAS IMAGI. QUE SE 
CORTAN EN UN PUNTO REAL, 
1.1. Si DET(A)<>0 =>CONICA 


APRENDER CON EL ORDENADOR 


NO DEGENERADA. 
1.1.1. 
CO. 


PARABOLOIDE ELIPTI- 


1.2. Si DET(A) =0 => CONICA DEGENERA- 
DA 


1.2.1. Rg(A)=3 => CILINDRO ELIPTI- 


CO o CILINDRO IMAGINARIO. 


1.2.3. Rg(A)=2 =>RECTA REAL DE 


PUNTOS SINGULARES. 


2. Ct ES DOS RECTAS REALES DIS- 


TINTAS. 

2.1. Si DET(A)<>0, 
2.1.1. 
ELIPTICO. 


REMX 
REMXK 
REMXK 


PROGRAMA 
DE 
CIRCUITOS RLC 


PARABOLOIDE 


2.2. Si DET(A) =0. 
2.2.1. CILINDRO HIPERBOLICO o DOS 
PLANOS REALES SECANTES. 
3. Ct ES UNA RECTA REAL DOBLE 
=> SIEMPRE DET(A)=0. 
3.1. CILINDRO PARABOLI- 
CO. 
RECTA DE PUNTOS 
SINGULARES IMPRO- 
PIOS. 
RECTA DE PUNTOS 
SINGULARES PROPIOS. 
PLANO DE PUNTOS 
SINGULARES. 


3.2. 


3.3. 
3.4, 


REMIGIOICOGIOIOOOK AR AAA ARA 
x 


a 
x 


REMIOIOOIOOIOOOGOI GOO EA IKE 


"VALORES DE LA RESISTENCIA, CAPACIDAD" 


TENSION DE PICO Y FRECUENCIA" 


"Y TE DEVUELVE LA CORRIENTE POR CADA ELEMENTO" 
"ANGULO DE DESFASE Y FRECUENCIA DE RESONANCIA" 


£0 REMXk VALIDO PARA AMSTRAD xk 

70 REMK IBM-PC Y COMPATIBLES k* 

20 REMX COMMODORE, SPECTRUM xk 

90 REMXx Y MSX x 

100 REMO olaaa laldldlojodiojololdialdioiak 

110 CLS 

115 LET PI=3,1415 

120 PRINT "ESTE PROGRAMA TE PIDE LOS" 
130 PRINT 

140 PRINT "INDUCTANCIA, 

150 PRINT 

160 PRINT 

170 PRINT :PRINT 

180 INPUT "RESITENCIA EN OHMIOS ="3R 
190 IF Re= O THEN GOTO 180 


200 
210 
220 
27m 


240 


INPUT 


INPUT 


LET A=IR/I 
PRINT " 

PRINT 
PRINT 
3 PRINT 
PRINT 
PRINT 
PRINT 
O PRINT 
PRINT 
PRINT 
FRINT 


SOCIEDAD 


Histogramas 


Actualmente las técnicas audiovisuales 
son ampliamente utilizadas en cualquier cam- 
po de la ciencia. Un ejemplo claro es la apli- 


"INDUCTANCIA EN HENRIOS =" 
TF 1<=0 THEN GOTO 200 
TNT "CAPACIDAD EN FARADIOS =";C 
E C<=0 THEN GOTO 220 
"VOLTAJE —TENSION DE PICO- EN VOLTIOS ="3V 
IF V<=0 THEN GOTO 240 
INPUT "FRECUENCIA EN HERZIOS = 
O IF F<=0 THEN GOTO 260 
LET XL=2xXPIXFXL:LET XC=1/(2xPIXFXC) 

LET Z1=XL/ (1-((2XPIXF)"2)XLAC)3LET Z=Z1XkR/(Z1+R) 
LET I=V/Z8LET IL=V/XLiLET IC=V/XC:3LET IR=V/R 
LET RE=1/(2xXPIXSOR(LAC)) 
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3L 


” FE 


CIRCUITO RLC" 

"RESISTENCIA ="5R3" OHMIOS":PRINT 
"INDUCTANCIA ="3Lj3" 
"CAPACIDAD ="3C3" FARADIOS”:PRINT 
"VOLTAJE ="5V53 uy 
"FRECUENCIA ="3F;" 
"CORRIENTE POR RESISTENCIA ="31R5" AMPERIOS"*PRINT 
“CORRIENTE POR INDUCTANCIA ="3ILj3"” 
"CORRINETE POR CAPACIDAD ="5 105" AMPERIOS":*PRINT 
"COSENO ANGULO DE DESFASE = 
"FRECUENCIA DE RESONANCIA ="¿RE:PRINT 


HENRIOS":PRINT 


VOLTIOS” :PRINT 


HERZIOS" :PRINT 
AMPERIOS":PRINT 


O" ¿PRINT 


cación de los audiovisuales en la enseñanza. 
Otro campo en el que se han desarrollado in- 
creíblemente estos métodos es en el de las fi- 
nanzas. Actualmente podemos representar un 
balance de cuentas o unas ganancias anuales 
por medio de gráficos, que si bien quizá no es 
más completo que un inteligible libro de cuen- 


tas, al menos para los profanos sí es más com- 
prensible. 

En este programa hemos desarrollado 
un histograma para cualquier aplicación hasta 
un máximo de 20 barras. Ss: 

$ Las aplicaciones de este programa en 
cualquier campo son múltiples. Desde la en- 
señanza al campo de los negocios. 

El histograma lo definiremos nosotros al 
principio del programa (n.* de barras, nombre 
de los ejes...), para luego imprimirlo en panta- 


10 
20 
30 
40 
50 
560 
70 


REMPORORARRORDIOIOOIOOADIOIOIIOOR E 
REMx PROGRAMA * 
REMK , DE ES 
REMK HISTOGRAMAS x 
REMO ORIO Illa 
REMX VALIDO PARA AMSTRAD + 
REMK IBM-PC Y COMPATIBLES x* 
80 REMK COMMODORE, SPECTRUM % 
90 REMK Y MSX X 
100 REMO IaIoIIdollolololdolaolonoKE 
110-CLS 

120 DIM DH(20) 

130 DIM NH$(20) 

140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
175 INPUT 
180 INPUT 
190 IF B>20 THEN PRINT 
200 INPUT 
210 INPUT 
220 PRINT 
230 INPUT 
240 PRINT 
250 INPUT 
260 PRINT 
265 LET LM=IMT(20/B) 
270 FOR J=1 TO B 
280 
290 
300 
310 NEXT J 

320 "PRINT 

330 REMKEXTOMA DE VALORESXXkx* 
340 FOR J=1 TO B 

350 
360 
370 
380 
390 
400 
405 
410 
420 
430 
450 
4650 
470 
500 
510 
520 
530 
540 
550 
560 
565 
570 
seo 
590 
510 


"QUE LE INTRODUCES" 
¿PRINT 


LS $ 
"INTRODUCE LAS UNIDADES DE 
UNS 4 


INPUT NH$(J) 


INPUT DH(J) 


NEXT J 

CcLs 

REMX*XDIBUJO DE LAS COORDENADAS Kxxx xk 
LOCATE 2,8:PRINT HIS 

FOR F=18 TO 8 STEP -1 
LOCATE F,B:PRINT ":" 
NEXT F 

FOR C=31 TO 8 STEP -1 
LOCATE 18,C:3PRINT "-" 
NEXT 

REMXXADIBUJO DE LOS NOMBRESAXXk 
LOCATE 6,1:PRINT NVS$ 
LOCATE 7,1:PRINT UNS 
LOCATE 20,25:PRINT NH$ 
LOCATE 8,3:PRINT LS 
REMXXXDIB BARRASKXK 

TET SEP=INT (20/B) 

LET PH=9 

FOR J=1 TO B 

LET N=(DH(J)/LS)k10 

FOR C=1 TO N 

LET PV=18-C: 

620 LOCATE PV,PH3PRINT "pg" 
625 LOCATE 19,PH:1PRINT NH$ (35 
630 NEXT C 
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PRINT "INTRODUCE DATOS DE << "5NH$(J)3" 


lla. El programa se ha hecho para baja resolu- 
ción y con caracteres de texto. Con bastante 
facilidad se podrá modificar el programa para 
mejorar su presentación. También resulta fá- 
cil sacar una copia por impresora sin más que 
hacer, por ejemplo, un volcado de pantalla o 
cambiar todos los PRINT por LPRINT. Conside- 
ro, no obstante, que el programa merece la 
pena conservarlo en cinta o disco para aplica- 
ciones futuras. 

A continuación mostramos un ejemplo: 


"ESTE PROGRAMA TE REPRODUCE EN PANTALLA” 
"EL HISTOGRAMA DE UNA SERIE DE DATOS" 


"INTRODUCE EL NOMBRE DEL HISTOGRAMA"5HI$ 

"INTRODUCE El. NUMERO DE BARRAS QUE DESEAS"5;B 
"PARAMETRO NO VALIDO":GOTO 180 

"INTRODUCE EL NOMBRE QUE LE DAS AL EJE VERTICAL "5NVS$ 
“INTRODUCE EL NOMBRE QUE LE DAS AL EJE HORIZONTAL"3NH$ 
"INTRODUCE EL LIMITE SUPERIOR DE ";NV$5 


"3NVS5 


PRINT "INTRODUCE NOMBRE ASOCIADO A LA BARRA"3J5" (LONGITUD MAXIMA"5LM5")"3 


IF. LEN (NH$(J))>LM THEN PRINT "PARAMETRO NO VALIDO":GOTO 280 


>> EN ("5UNS$3") MAXIMO "¿L8S5 


IF “DH(J)>LS THEN PRINT "EL VALOR MAX QUE PUEDE INTRODUCIR ES ”"jL81G0TO 350 


APRENDER CON EL ORDENADOR 


635 LOCATE PV, 2tPRINT DH(J) 
640 LET PH=PH+SEP 


650 NEXT J 

1000 REMO alado daa lolo 
1010 REMX MODIFICACIONES PARA Ss 
1020 REMX* COMMODORE: x 
1030 REM%x 2000 LET T$=CHR$ (19) x 
1040 REM* 2010 LET A$=CHR$ (17) k 
1050 REMx* 2020 LET D$=CHR$ (29) x 
1060 REM* 2030 PRINT T$ x 
1070 REMKX 2040 FOR G=1 TO Y * 
1080 REMk 2050 PRINT As x 
1090 REMX 20650 NEXT G ES 
1100 REMx* 2070 FOR G=1 TO X xk 
1120 REM* 2080 NEXT G ES 
1130 REMEXK RX XK XK XK MOR A A O 
1140 REMX CAMBIAR TODOS LOS es 
1150 REMK*  LOCATE A,B:PRINT .... x* 
1160 REMx POR: x 
1170 REMK* LET Y=A:LET X=B:GOSUB 2000% 
1180 REMxX Y EN LA LINEA SIGUIENTE í 
1190 REMXR PRINT ..... xk 
1200 REMIGIO OIOOIOOOIGODOO DORIA e 
1300 REMIGIO dalla ajodjdlalolcio joio 
1310 REMX* MODIFICACIONES PARA SPECTRUMK 
1320 REM* DONDE PONE LOCATE PONER : x 
1330 REMX PRINT AT .... Es 
1740 REMOS alada odadaoor 
1350 REMIOAOOOIORIOICIO OOO OOOO OO 
1360 REMK MODIFICACIONES PARA APPLE x 
1370 REMX EN LOS LOCATE MODIFICAR EL  * 
1380 REMX ORDEN DE LAS CODRDENADAS xk 
1390  REMBOOIOOIOIOIGIOOOIOIOIOOIOSIOOOODOERAE 


<£ EJEMPLO DE HISTOGRAMA >> 


ESTE PROGRAMA TE REPRODUCE EN PANTALLA 
EL HISTOGRAMA DE UNA SERIE DE DATOS 


QUE LE INTRODUCES 


INTRODUCE EL NOMBRE DEL HISTOGRAMA? GANANCIAS 1ER. CUATRIMESTRE 


INTRODUCE EL NUMERO DE BARRAS QUE DESEAS? 4 


INTRODUCE EL NOMBRE QUE LE DAS AL EJE VERTICAL? GANANCIAS 
INTRODUCE EL NOMBRE QUE LE DAS AL EJE HORIZONTAL? MESES 
INTRODUCE EL LIMITE SUPERIOR DE GANANCIAS? 20000 
INTRODUCE LAS UNIDADES DE GANANCIAS? MILL.PTS. 


INTRODUCE NOMBRE ASOCIADO A LA BARRA 1 
INTRODUCE NOMBRE ASOCIADO A LA BARRA 2 
INTRODUCE NOMBRE ASOCIADO A LA BARRA 3 
INTRODUCE NOMBRE ASOCIADO A LA BARRA 4 


INTRODUCE DATOS DE << ENE >> EN 
INTRODUCE DATOS DE << FEB >> EN 
INTRODUCE DATOS DE << MAR >> EN 
INTRODUCE DATOS DE << ABR >> EN 


(MILL.PTS.)> 
(MILL.PTS.) 
(MILL.PTS.) 
(MILL.PTS.)> 


GANANCIAS 1ER. CUATRIMESTRE 


GANANCIAS 
MILL.PTS. 
20000 


15000 


10000 

8000 : 

5000 : 
; 


ENE FEB MAR ABR 
MESES 
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MAXIMO 
MAXIMO 
MAXIMO 
MAXIMO 


(LONGITUD MAXIMA 5 
(LONGITUD MAXIMA 5 
(LONGITUD MAXIMA 5 
(LONGITUD MAXIMA 5 


20000 
20000 
20000 
20000 


3203" 


)7 ENE 
)? FEB 
)?% MAR 
)7 ABR 


5000 
10000 
15000 
8000 


REMA RENA ARA E AKAL ARAS 


20 REMK PROGRAMA í 
30 REMK DE * 
REMX PANTANOS z 


REMIGIO NOAA AAA ERA 
REMX VALIDO PARA AMSTRAD *£ 
REMX IEM-PC Y COMPATIBLES * 
REMX COMMODORE, SPECTRUM £ 
REMK Y MSX * 
REMERA RAR RA AREA KARA ALA ERRE 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT ¿PRINT 
FOR J=1 TO 14 
READ A$ 


20 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


"EN ESOPARA. 


INPUT R$ 
READ E$ 


LET C=C+1 


INPUT PS$ 
READ Cs$ 


LET C=C+1 
300 NEXT J 
310 PRINT 
1000 DATA 
1010 DATA 
1020 DATA 
1070 DATA 
1040 DATA 


1050 DATA CONTRERAS, CABRIEL, CUENCA 


PARA LOS MAS JOVENES 


Los pantanos en España 


Una de las peculiaridades de España 
frente a otros países de Europa son sus hechos 
climáticos con su influencia en los suelos, la 
vegetación y en el régimen de los cursos de 
los ríos. Sabemos que en España existe una di- 
versificación climática (clima continental en 
oposición a las distintas fachadas costeras: me- 
ridional, septentrional y occidental). 

Las condiciones climáticas influyen di- 
rectamente en los caudales de los ríos que cir- 
culan por la superficie peninsular, sobre todo 
la cantidad de precipitaciones que se produz- 
can en la zona a la que pertenece ese río. 

Las aguas de muchos ríos españoles son 
aprovechadas para crear los embalses. Un 
embalse es un gran depósito de agua forma- 
do artificialmente aprovechando algún acci- 
dente de la naturaleza. En estos embalses se 
detienen y reúnen las aguas de los ríos y su 
desagúe puede ser controlado a voluntad para 
el riego de las tierras próximas y para produ- 
cir energía eléctrica. 

Acabamos de ver ahora dos de los apro- 
vechamientos fundamentales de los embalses. 


PRINT "¿EN QUE RIO SE ENCUENTRA EL PANTANO DE 


IF BS<>R$ THEN PRINT "INCORRECTO, 


IF P$<>08 THEN PRINT "INCORRECTO, 
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"ESTE PROGRAMA ES UN REPASO A TUS" 
“CONOCIMIENTOS SOBRE LOS PANTANOS" 

CUANDO TE SALGA EL NOMBRE" 

"DE UN PANTANO TENDRAS QUE ESPECIFICAR” 

"EL RIO EN QUE SE ENCUENTRA Y LA PROVINCIA" 


"as" 213 


LA RESPUESTA ES "3B$:GOTO 250 


PRINT "¿EN QUE PROVINCIA SE ENCUENTRA EL PANTANO DE "5A$3" ?2"j 
LA RESPUESTA ES "3C$:GOTO 300 


"TU PUNTUACION ES DE "3C3” PUNTOS" 

GABRIEL Y GALAN, £LAGON, CACERES, ENTREPEÑAS, TAJO, GUADALAJARA 
BUENDIA, TAJO, CUENCA, ALCANTARA, TAJO, CACERES, BORBOLLON, ALAGON 

TAJO, EBRO, EBRO, SANTANDER, CUERDA DEL POZO, EBRO, SORIA, MEQUINENZA 
EBRO, ZARAGOZA, ROSARITO, TIETAR, TOLEDO, ESLA, DUERO, ZAMORA, STA. TERESA 
TORMES, SALAMANCA, ALDEAVILA, DUERO, SALAMANCA, ALARCON, JUCAR, CUENCA 


Muchas zonas que ahora llamamos zonas de 
regadío eran antes de la creación de los em- 
balses zonas de secano, en las que la produc- 
tividad de la tierra era muy escasa. Gracias a 
la creación de estos embalses, zonas como Ex- 
tremadura han mejorado notablemente la pro- 
ductividad agrícola. 

La mayoría de los embalses creados se 
encuentran en zonas donde no llueve mucho 
(en la zona de Galicia existen pocos o casi nin- 
gún pantano, ya que no es necesario el alma- 
cenamiento del agua en estos embalses para 
que la tierra esté suficientemente regada y el 
rendimiento de ésta fuese mayor). 

Podemos decir, por tanto, que los em- 
balses juegan un papel importantísimo en la 
agricultura española. 

Hemos hablado anteriormente también 
de otra de las funciones de los embalses: la 
producción de energía eléctrica, basada en el 
aprovechamiento de los saltos de agua con la 
utilización de turbinas que están conectadas a 
unos generadores eléctricos que transforman 
el movimiento de las turbinas con el agua en 
electricidad. 

Este programa sirve para recordaros 
vuestro conocimientos sobre la situación de 
los pantanos o embalses en nuestros rlos y co- 
marcas. 


PEQUEÑA HISTORIA DE LA INFORMATICA 


ESDE antiguo el hombre se 
ha sentido imperfecto. Pero 
nunca ha aceptado "deporti- 
vamente” sus imperfeccio- 
nes, y se ha refugiado en la 
técnica para ir poco a poco 
superándose. La ciencia ha 
elevado al hombre a cimas 
increíbles, pero no inimaginables. La historia 
del ordenador ha seguido esta tendencia an- 
cestral del hombre, ha ido intentando “emular- 
lo" desde sus comienzos, estimulado por la me- 
táfora de compararlo con el cerebro humano. 
El creador de la Cibernética, Wiener, del que 
ya hemos hablado, predijo hace bastantes 
años que la civilización humana se reorgani- 
zaría alrededor de ese ser inmaterial tan im- 
portante que es la información. 

La sociedad futura, transformada y en 
continua transformación, tendrá unos pilares 
que no serán nuevos, pero sí habrán cobrado 
nuevo valor. La lógica, por ejemplo, se conver- 
tirá en un valor universal, una herramienta de 
comprensión general, al mismo tiempo que un 
instrumento para transformar las materias a 
las que se aplica. La Informática será una cien- 
cia muy ramificada, formando parte de todas 
las disciplinas. Algunos autores piensan que 
esta jovencísima ciencia sola ha supuesto una 


Circuitos integrados. Exportaciones e importaciones 
en el Japón 
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55 


Parque de Ordenadores en el Japón 
(en millones de yens) 


Divers 


Burroughs 


NEC 
296 


auténtica revolución del hombre y la humani- 
dad. En cualquier caso, la sociedad ha cam- 
biado y seguirá cambiando. En efecto, esta so- 
ciedad no podrá "oponerse" ni "resistirse a es- 
tos cambios, no tendrá otra alternativa que 
aceptarlos y asimilarlos. Aquellos que se han 
opuesto a una sociedad materialista y tecnifi- 
cada, tampoco han podido sustraerse a inte- 
grarse en este mundo informático, cada vez 
más amplio. Los países del Este, que critica- 
ron en sus comienzos a la Cibernética, han te- 
nido que recuperar el tiempo perdido, e inte- 
grarse en esta evolución constante y cuya ve- 
locidad de cambio es cada día mayor. 

La Informática fue en sus comienzos una 
ciencia cuyos frutos eran consumidos casi ex- 
clusivamente por organismos militares. Mu- 
chas razones explican este hecho. Por un lado, 
la defensa de la patria siempre ha sido una 
obligación prioritaria, que requería un esfuer- 
zo económico considerable. Por tanto, gene- 
ralmente, estos estamentos disponían del di- 
nero necesario. Por otro, la guerra moderna 
era completamente distinta de las guerras an- 
teriores. En esta nueva guerra, la previsión, el 
cálculo, la organización y unas armas sofisti- 
cadas y en continua evolución tenían más va- 
lor que el disponer de muchos hombres entre- 
nados con material tradicional. Por todo ello, 
es lógico que los laboratorios de desarrollo de 
grandes y pequeñas empresas estuvieran de- 
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dicados en los primeros años de la Informáti- 
ca a sacar adelante proyectos militares. 

Otro elemento fundamental de esta 
guerra moderna es la velocidad. Los aviones 
son cada día más rápidos. Los proyectiles tam- 
bién. Los tiempos de reacción de los respon- 
sables de aparatos y sistemas de defensa son 
más y más cortos. La guerra moderna no es ya 
de unos hombres frente a otros, y los vence- 
dores serán los más bravos. Es una guerra de 
tecnología y de información, en la que el es- 
labón más débil es el hombre. 

La sociedad civil no se quedó impávi- 
da, observando todos estos acontecimientos. 
También quiso tomar parte en ellos, recupe- 
rar y mejorar los sistemas existentes. Su avi- 
dez por todo tipo de sistemas ha ido crecien- 
do, y la informática ha entrado en fábricas, ofi- 
cinas, empresas, hospitales... en cada esta- 
mento de la vida civil. Y, naturalmente, la ve- 
locidad también sigue siendo uno de los fac- 
tores fundamentales. 

Wiener tuvo la intuición de considerar 
que la información jugaría un papel trascen- 
dental en la vida de los decenios siguientes. 
Y también supo ver que las nuevas "máquinas 
automáticas" que estaban naciendo serían fun- 
damentales. Estaba preocupado por un fenó- 
meno de la naturaleza que él llamaba “entro- 
pia” y que consistía, según sus palabras, en 
que la propia naturaleza destruía todo orden, 
toda comprensión. El hombre estaba destru- 
yendo sin parar los recursos naturales que ha- 
bía heredado de sus padres, por explotacio- 
nes intensivas y salvajes. Wiener llegó inclu- 
so a establecer una teoría matemática de esta 
"entropia”. Y, como hombre positivo, dio la so- 
lución para luchar contra este problema, que 
consistía en utilizar las máquinas para resol- 
ver-problemas de comunicación entre los hu- 
manos, evitando tres males fundamentales: los 
secretos, el comercio de la información y la 
discriminación en el acceso a dicho informa- 
ción. 

La industria informática también ha sido 
considerada como el mejor ejemplo de lo que 
es una expansión sin precedentes. Se ha nom- 
brado como la más dinámica, vital. Los labora- 
torios de desarrollo son una parte fundamen- 
tal de estas industrias. Los "secretos" de Wie- 
ner, y la velocidad, dos puntos importantes a 
cuidar. En cada momento, había que sacar al 
mercado un ordenador mejor, más rápido, o 
más fiable, y, desde luego, antes de que la 
competencia lo consiga. Los primeros labora- 
torios de desarrollo se crean en Universida- 
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des, y con frecuencia con dinero del campo 
militar. Pero no olvidemos que las primeras 
casas fabricantes de máquinas de oficina inte- 
resadas en el progreso económico, más que 
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en el científico, aprovecharon su posición y 
alcanzaron los primeros puestos como fabri- 
cantes de ordenadores. Pero estas casas no 
sólo venden ordenadores. Venden un nuevo 
estilo de sociedad, de organización. Las com- 
pañías americanas, en un principio, son las 
más avanzadas. Le seguirán las de los países 
occidentales, hasta un momento en el que el 
Japón toma la antorcha. Las comunicaciones, 


complementarias de procesos informáticos, 
irán informatizándose cada vez más, hasta ser 
una parte más de la Informática. 

Recordemos que el primer ordenador 
comercializado apareció en el mercado en 
1951. Quince años más tarde, ya están instala- 
dos más de 50.000 ordenadores en el mundo 
occidental. En los países del Este, algo más re- 
trasados, se pueden contar más de 2.500, La in- 
dustria informática pasará a ser una de las más 
poderosas e importantes en el mundo. Los Es- 
tados Unidos están a la cabeza, siguiéndoles 
Francia, el Reino Unido, Alemania y Japón. 
Pero casi desde el primer momento, desde el 
punto de vista comercial, las ocho primeras 
casas fabricantes, que absorberán el 90 por 
100 del mercado mundial, serán todas ellas 
americanas. Y las que alcanzarán los primeros 
puestos serán precisamente las que primero 
se decidieron a entrar en esta industria, 

No debemos pensar, sin embargo, que 
los grandes éxitos comerciales de estas em- 
presas han coincidido siempre con avances 
tecnológicos - importantes. En muchos casos, 
los productos de más éxito no eran, precisamente, 
los más avanzados tecnológicamente; lo ha- 
bían conseguido por otras muchas razones 
que poco tenían que ver con la tecnología. El 
1401 de IBM no era ni mucho menos un orde- 
nador de vanguardia cuando salió, Pero resul- 
taba de fácil utilización para personal que es- 
taba acostumbrado a utilizar máquinas para 
tarjetas perforadas. Y tuvo un éxito enorme, 
vendiéndose unos quince mil equipos. Otro 
producto de gran éxito fue el H200, de Honey- 
well, que colocó a esta compañía en tres años 
en quinta posición a nivel mundial. El éxito del 
H200 se debió probablemente a que podía 
ejecutarse enestas máquinas todo el software 
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del 1402, del que, como sabemos, el mercado 
estaba bien surtido. Por el contrario, hemos 
hablado en otro momento del Gamma 60 de 
Bull, como una máquina de excelentes presta- 
ciones, que no tuvo ningún éxito. De este mo- 
delo se vendieron sólo seis ordenadores. 

Por otro lado, y en los primeros tiempos 
sobre todo, existió una verdadera guerra de 
patentes entre las grandes compañías. Algu- 
nas intentaban "copiar de empresas de la 
competencia, pero en muchos casos las gran- 
des compañías interponían recursos sobre pa- 
tentes, sabiendo desde el primer momento 
que no existían tales problemas, y únicamen- 
te con el fin de paralizar la fabricación de tal 
o Cual recurso. 

Las compañías fabricantes también po- 
dían dar licencias, de fabricación de sus pro- 
ductos a otras compañías. Generalmente este 
tipo de licencias se otorgaban a compañías ex- 
tranjeras. En el año 1967 la dependencia del 
mundo occidental respecto de '>s Estados Uni- 
dos era casi total, existiendo -.w dos compa- 
ñías que producían gamas completas de orde- 
nadores: Fujitsu, en el Japón, e ICT, en el Rei- 
no Unido. 

Como estamos viendo, las primeras ca- 
sas fabricantes son precisamente aquellas que 
se interesaron en la "carrera" primero. Es cla- 
ro que una de las razones fundamentales es el 
haber aprovechado la confianza de sus clien- 
tes en sus productos para venderlos otros, más 
completos, muchísimo más caros. El conoci- 
miento del mercado en el que se introducían, 
y el aprovechamiento de redes comerciales 
ya implantadas, han facilitado el acceso a los 
primeros puestos a estas compañías vanguar- 
distas. La Honeywell se sale claramente de 
este esquema, pero ha sabido introducirse en 
el grupo, sin disponer, como las restantes de 
todo ese bagaje, a veces inmaterial, pero tan 
importante en los negocios. 

A partir de un determinado momento, 
las casas fabricantes comienzan a desdoblar 
sus precios, vendiendo por un lado el hardwa- 
re, el ordenador propiamente dicho, y factu- 
rando por otro el software para ese hardware. 
Es el momento en el que comienzan a apare- 
cer las primeras casas de software, que irán 
aumentando y consolidando su situación pro- 
gresivamente. Es cierto que los ordenadores 
eran más baratos, pero siempre hay que con- 
tar con los gastos del software. La falta de 
compatibilidad entre unos y otros equipos im- 
ponían la necesidad de reescribir o transfor- 
mar los programas para el nuevo equipo. Los 
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trastornos eran enormes, y los clientes se re- 
sistían a tales inconvenientes. Por ello, existía 
un cierto conservadurismo en la elección del 
ordenador, y uno de los factores que más se 
consideraba era la “seriedad” de la marca, 
que, en muchos casos, garantizaba la compa- 
tibilidad dentro de la gama de ordenadores 
que estaba vendiendo en ese momento. No 
hay que olvidar que este tipo de material tie- 
ne una vida efímera, desde luego no por su 
mala calidad, o corta duración, sino por los ra- 
pidísimos avances técnicos que hacen obsole- 
ta a una máquina a los pocos años de ser com- 
prada. No hay más que pensar en las calcula- 
doras para uso doméstico, que hace unos años 
eran relativamente voluminosas, y muchas de 
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ellas debían estar conectadas a la red. Pocos 
años después estas máquinas ya apenas si son 
utilizadas, existiendo otras solares, cuyo peso 
es muchísimo menor, y que no necesitan ni pi- 
las ni red. Debido a estas mejoras tecnológi- 
cas continuas, entre los usuarios de ordenado- 
res existía un enorme conservadurismo a la 
hora de elegir la marca de su ordenador. Y de 
este conservadurismo se benefician funda- 
mentalmente las empresas de siempre, las rei- 
nas del mercado de máquinas de oficina. No 
ocurre lo mismo en el Japón, donde será la in- 
dustria electrónica la que se beneficie y apro- 
veche su red de clientes. A éstos les ofrece, 
del mismo modo que las grandes compañías 
occidentales, no sólo máquinas sofisticadas, 
capaces de las más grandes hazañas, sino un 
nuevo estilo de gestión moderno, distinto, más 
eficaz y a la larga incluso más barato. 

En 1976 en el Japón había menos de 
10,000 ordenadores. Ocho años más tarde, su 
censo alcanzaba los dos millones y medio, y 
desde luego, no todos ellos eran americanos. 
Los japoneses han sabido proteger su nacien- 
te industria con una política de compra de li- 
cencias, y mucha habilidad. Las industrias in- 
formáticas han recibido bastante apoyo y cré- 
ditos del Estado. ¡Y desde luego lo han apro- 
vechado! Sus ventas en el exterior han aumen- 
tado enormemente. Hace casi diez años, en 
1978, el Japón controlaba el 18 por 100 del mer- 
cado exterior. Cuatro años más tarde, nada 
menos que el 40 por 100 de este mercado es 
suyo. Este éxito considerable tiene varios pi- 
lares: por un lado, está la creatividad japone- 
sa, y su enorme disciplina para aprender de 
los demás. Por otro, el eficaz e importante apo- 
yo del MITI (Ministerio de Industria y Comer- 
cio Exterior), que las industrias japonesas han 
sabido utilizar acertadamente. Como el Japón 
no dispone de Ejército, conforme a las conven- 
ciones del Armisticio, el Estado se ha intere- 
sado fundamentalmente en las nuevas tecno- 
logías, y una buena parte del dinero y esfuer- 
zos que hubieran recaído en éste han sido de- 
rivadas para la planificación de estos nuevos 
sectores. Por otro lado, y según las premoni- 
ciones de Wienner, los "secretos militares" han 
supuesto siempre una rémora para la ciencia. 
(Para hacer justicia, no debe olvidarse que al 
mismo tiempo han sido el motor de la indus- 
tria informática, y que, desgraciadamente, sin 
las guerras, el avance hubiera sido mucho más 
lento.) Olvidemos estas tristes consideracio- 
nes y volvamos a los japoneses. Estos desde el 
primer momento, se sintieron mucho más in- 


teresados en comprar licencias (americanas 
principalmente), para que pasaran a fabricar 
los nuevos productos empresas japonesas. 
Apoyando esta idea, los japoneses han prote- 
gido su mercado interior con todo tipo de me- 
didas y han estandarizado sus productos, lo 
que les ha permitido bajar los precios sustan- 
cialmente. Todo este paquete de acciones, 
junto con el gran prestigio mundial que habían 
alcanzado en el mundo las empresas electró- 
nicas japonesas, han colocado al Japón en una 
posición inmejorable en el mundo de las em- 
presas informáticas. 

Sin embargo, el Japón se ha encontrado 
durante muchos años en una situación bastan- 
te retrasada respecto a los demás países en su 
producción de software. Hasta hace muy po- 
cos años, casi todo era importado. Pero los es- 
fuerzos del MITI, impulsor del proyecto de la 
quinta generación de ordenadores, están ob- 
teniendo frutos. Se están desarrollando len- 
guajes, principalmente encaminados hacia un 
lenguaje natural, pensados para la inteligen- 
cia artificial. Los japoneses se han saltado va- 
rios peldaños en este campo, y han saltado 
desde abajo a un software de vanguardia. 
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Siguiendo el ejemplo japonés, algunos 
países han intentado hacerse hueco en el mer- 
cado de los ordenadores. Entre los asiáticos, 
Taiwán o Corea fabrican sobre todo microor- 
denadores, con una calidad que va mejoran- 
do día a día, y que ya alcanza unos niveles 
bastante aceptables. No hay que olvidar que 
el propio PC de IBM, cuyo principal argumen- 
to comercial es que los demás fabricantes lo 
copian, pero es el único que ofrece garantías, 
está fabricado casi integramente en Extremo 
Oriente. En América del Sur, Brasil, está inten- 
tando llevar una política de proteccionismo se- 
mejante a la emprendida por el Japón. Los re- 
sultados todavía no son muy evidentes, pero sí 
prometedores. 


Junto con sus enormes ventajas, la infor- 
mática ha creado problemas de todo tipo. Mu- 
chos le achacan responsabilidades en el paro 
mundial, e incluso además de estos problemas 
sociales, no deben olvidarse los nuevos pro- 
blemas éticos que ha introducido. Estos proble- 
mas se irán aclarando y resolviendo poco a 
poco, muy lentamente, en el propio seno de la 
cultura que creó la Informática. 


TEMAS MONOGRAFICOS DE VANGUARDIA 


Análisis y clasificación de objetos 
astronómicos por ordenador 


partir de los años sesenta el 
análisis de imágenes por or- 
denador ha resuelto multi- 
tud de problemas, desde la 
toma de la información a la 
interpretación de las imáge- 
nes. La evolución constante 
de las soluciones ofrecidas 
en este dominio tiene su raíz en numerosos 
factores, entre ellos la necesidad de desarro- 
llar nuevas ramas de investigaciones, ciñén- 
dose más a las distintas aplicaciones que van 
apareciendo, la evolución de los ordenadores, 
entre los que van tomando mucha importancia 
las máquinas dedicadas, y el desarrollo de 
programas de aplicación específicos para el 
proceso y representación de imágenes, reco- 
nocimiento de formas, etc. 

Todo este enorme desarrollo ha ido cre- 
ciendo en una relación muy estrecha con los 
distintos dominios científicos, como el análisis 
de señales, las matemáticas aplicadas o el pro- 
pio desarrollo de la ciencia de los ordenado- 
res. El análisis de imágenes es hoy en día una 
disciplina multiforme, que incluye el proceso 
de imágenes, el reconocimiento de imágenes 
y el de esquemas o patrones. 

Para resolver este tipo de problemas se 
han desarrollado muchos programas de inves- 
tigación e incorporan soluciones a los proble- 
mas de representación de imágenes, como co- 
dificación, mejora de imágenes y restaura- 
ción, En cuanto al análisis de imágenes si- 
guiendo métodos típicos de segmentación y 
extracción de características, los resultados 
han sido buenos en su mayoría. 

En paralelo con métodos sencillos de 
estructura, observamos la elaboración de mé- 
todos de interpretación sofisticados, que tra- 
bajan a nivel semántico, utilizando técnicas de 
inteligencia artificial. Estos métodos son los 
que se aplicaron inicialmente al reconoci- 
miento de poliedros y más tarde para el aná- 
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lisis de objetos representados mediante cilin- 
dros. 

Con frecuencia, sin embargo, la con- 
cepción primaria del análisis de imágenes, 
descrito simplemente como la aplicación de 
un sistema con fases de toma de imágenes, 
preproceso, segmentación y extracción de ca- 
racterísticas, no es suficiente para poder na- 
sar a la fase de diagnóstico. La razón de que 
esto ocurra suele ser debido a la dificultad de 
realizar adecuadamente la fase de segmenta- 
ción. Es muy frecuente que durante esta fase 
se introduzcan errores de influencia muy ne- 
gativa, sobre todo el proceso posterior. Á pe- 
sar de todos estos inconvenientes, existen nu- 
merosísimas aplicaciones que utilizan este tipo 
de métodos, ya que han probado ser suficien- 
temente útiles para la resolución de muy nu- 
merosos problemas. En el reconocimiento de 
las imágenes astronómicas este tipo de siste- 
mas complejos, pero de estructuración senci- 
lla, serán los utilizados. 

Existen, sin embargo, otras aproxima- 
ciones orientadas a la modelización del siste- 
ma perceptual humano. Estos modelos, que se 
basan en la comprensión del proceso de las 
neuronas humanas, deben explicar las funcio- 
nes humanas de reconocimiento visual e inter- 
pretación de imágenes. Existe, sin embargo, 
aunque a nivel de laboratorio, un hardware li- 
gado a esta aproximación, que utiliza princi- 
palmente ordenadores con arquitectura para- 
lela. Hasta el momento, es sólo un tema de in- 
vestigación en el que se están logrando algu- 
nos resultados, pero parece que existe frente 
a él un futuro prometedor. 

La segunda aproximación al problema 
está orientada hacia la representación simbó- 
lica de los conceptos: éstos, es decir, los pro- 
cesos simbólicos y relacionales, deben reali- 
zar a tareas significativas de interpretación de 
imágenes. Esta forma de intentar la resolución 
del problema tiene que resolver multitud de 
inconvenientes, entre ellos el de definir los 
mecanismos de integración de las funciones 
puntuales, locales y globales que operan en la 
imagen, así como los módulos de control que 


Fig. 1. 


permiten la evolución de la imagen desde un 
nivel bajo de representación (representada 
por un conjunto de pixels) hasta un nivel alto 
(la imagen como interpretación escénica), y 
viceversa. 


Volvamos, pues, a la aproximación más 
real, no al complicado trabajo teórico, aplicán- 
dolo a imágenes, sin embargo, muy comple- 
jas: las imágenes astronómicas. 


Nos vamos a referir, por tanto, a un sis- 
tema específico para el análisis y clasificación 
de objetos astronómicos. El sistema, en su es- 
quema general, es bastante convencional, y 
consiste básicamente en un conjunto de utili- 
dades para la segmentación del objeto (están- 
dar y borrosa), preproceso básico y también 
específico (filtrado, aumento del contraste del 
nivel de gris, calibración, etc.), distintos méto- 
dos de extracción de características, depen- 
diendo de la aplicación particular, y algorit- 
mos de agrupamiento y clasificación. Se ha 
probado que este sistema es muy útil para el 
manejo de los datos astronómicos, permitien- 
do imágenes muy amplias (ya que en Astro- 
nomía los datos a procesar suelen ser extensí- 
simos). La estructura para catalogar también 
es bastante flexible, manteniendo tanto la in- 
formación sobre los objetos a analizar como los 
parámetros de clasificación. 

En investigación astronómica, tanto 
desde el punto de vista cuantitativo como des- 
de un punto de vista de clasificación, lo que in- 
teresa principalmente es un análisis morfoló- 
gico, El análisis de formas astronómicas tiene 
múltiples problemas a resolver. Además de 
los problemas que ya hemos expuesto en otros 
temas anteriores, las «formas» astronómicas 
son más difíciles de tratar debido principal- 
mente a que no tienen bordes, y a que la re- 
lación señal-ruido es muy baja (es decir, es di- 
fícil separar en la señal obtenida la informa- 
ción que interesa, de los ruidos y otras seña- 
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les que la distorsionan). El proceso de seg- 
mentación de los datos recibidos es, pues, una 
tarea importante, y muy compleja. 

En lo que sigue vamos, pues, a descri- 
bir someramente uno de los sistemas de aná- 
lisis morfológico de imágenes astronómicas, 
es decir, describiremos las metodologías utili- 
zadas para solventar problemas específicos 
de este tipo de imágenes. 

Vamos a estudiar el análisis de la forma 
de un objeto astronómico único, del que se tie- 
nen imágenes con distintos niveles de lumino- 
sidad, pero también veremos el análisis y cla- 
sificación de un número grande de objetos 
para identificarlos a partir de placas fotográ- 
ficas. El sistema para el análisis morfológico 
podría dividirse en las tres fases clásicas de 
los sistemas de reconocimiento de formas: 
preproceso de las imágenes, extracción de ca- 
racterísticas y análisis y clasificación de estas 
características. Vamos a ver a continuación es- 
tas fases. 

La parte más importante de este siste- 
ma de proceso es el "catálogo", o estructura- 
ción de los datos, que debe ser suficientemen- 
te eficaz y flexible, en la que los datos obteni- 
dos de la fase de extracción de caracterÍsti- 
cas se puedan insertar con una cierta facill- 
dad. La estructura de este «catálogo» se defi- 
ne de una vez por todas, a través de una fase 
de inicialización: en éste el usuario define, tan- 
to en número como en contenido, aquellos 
campos que van a formar parte del catálogo, 
Una vez realizada esta elección, la estructura 
lógica se almacenará en una tabla de defini- 
ción. En cada programa de aplicación, tanto sl 
está definido por el sistema como sl está es: 
crito por el usuario, el acceso al catálogo se 
realiza a través de un interfaz que lee la tabla 
de definición, y, de acuerdo con esta lectura, 
accede a los datos almacenados. Esto interfaz 
no sólo realiza el manejo de los datos del ca- 
tálogo, sino que dispone también de ciertos 
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módulos que configuran la presentación de los 
datos, realizan algunas estadísticas y otras mu- 
chas otras tareas. 

Este sistema de catalogación permite 
el manejo de los datos de una forma muy 
eficaz, sobre todo cuando se trata de pro- 
cesar imágenes muy complejas o grandes 
(téngase en cuenta que el tamaño normal de 
una imagen astronómica puede ser de 
10.000 x 10.000 pixels). La imagen completa se 
puede dividir en subpartes (esta tarea tam- 
bién es compleja), y las posiciones relativas de 
estas subpartes se almacenan en el catálogo, 
de tal forma que puedan realizarse ciertas 
operaciones como rotación, estiramiento, etc., 
con total seguridad. Esta característica es es- 
pecialmente útil cuando se trata de procesar 
imágenes de los mismos objetos astronómicos 
con bandas luminosas de distinta longitud de 
onda. 

El preproceso de la imagen es un paso 
importante. Su objetivo está muy claro, en la 
misma definición: son operaciones cuya mi- 
sión es facilitar el proceso siguiente, la seg- 
mentación. Esta fase previa tiene mucho inte- 
rés en el proceso de imágenes astronómicas, 
aunque en otros procesos pueda incluso ob- 
viarse, ya que, como son imágenes tan com- 
plejas, este paso debe tomarse siempre antes 
de proceder a la identificación, y extracción 
de características. El preproceso consiste 
esencialmente en la aplicación a la imagen de 
unos determinados algoritmos de filtro (linea- 
les y no lineales), para la detección de bordes, 
comprobación de máscaras y otras operacio- 
nes. Sin embargo, un problema específico de 
estas imágenes son los fondos no estaciona- 
rios. Para resolver el problema se pueden se- 
guir dos caminos distintos. El primero se basa 
en el concepto de la aplicación de una “trans- 
formada" de la imagen original, es decir, cada 
pixel de la imagen original se transforma en 
el pixel conjugado, cuyo valor representa el 
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contenido local de la información en un entor- 
no predefinido del propio pixel. En el dominio 
conjugado, las características del objeto se ha- 
cen más evidentes y las características del 
fondo se suavizan de forma invariante con res- 
pecto a las posiciones del baricentro del ob- 
jeto, permitiendo de este modo que la identi- 
ficación sea mucho más sencilla. 

Como contraposición a esta alternativa, 
se podría utilizar un tipo de filtros, llamados 
RNM, filtros no lineales que permiten compu- 
tar una estimación para el de fondo, a partir 
de valores que deben sustraerse de la imagen 
original. 

La segmentación de la imagen prepro- 
cesada, para extraer el objeto cuyas morfolo- 
gías deben ser estudiadas, es probablemente 
el punto más delicado de todo el proceso, y 
ello se debe, sin duda, a la bajísima relación 
señal-ruido de este tipo de imágenes, y a la 
propia naturaleza de los objetos a estudiar, 
que ya hemos indicado es muy poco concreta. 

Como en este caso el análisis morfoló- 
gico se realiza sobre pixels que tienen el mis- 
mo nivel de luminosidad, las características 
de los objetos astronómicos quedan muy difu- 
minadas desde el punto de vista del análisis. 
Para resolver el problema se extrae de la ima- 
gen la característica que debe analizarse me- 
diante un algoritmo de segmentación difusa 
para realizar una operación de subrayado de 
la gama de grises sobre la imagen obtenida. 
Las líneas clave de la imagen difusa son ex- 
traídas, y constituyen las características sobre 
las que se realizará el análisis morfológico. 
Evidentemente, cuando la relación señal-rui- 
do es lo suficientemente buena, las curvas de 
isonivel se podrían obtener sin llevar a cabo 
la fase de preproceso. 

Cada rama de la curva se almacena de 
forma separada, pero posteriormente se debe 
realizar una segmentación, para poder hacer 
distinciones entre las ramas de curva que de- 
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ben analizarse y aquellas que deben dese- 
charse por ser distorsionantes (formar parte 
del ruido). Los datos relacionados con las ca- 
racterísticas extraídas serán precisamente 
aquellos que formarán parte del catálogo. En 
la fase de análisis de características se toma- 
rá la curva segmentada, pero previamente 
transformada en forma paramétrica. 


En cuanto al análisis y clasificación, el 
proceso es el siguiente: una vez obtenidas las 
curvas en forma paramétrica, se analizan me- 
diante la técnica de los Descriptores de Fou- 
rier, es decir, la curva se transforma en una 
serie de Fourier (toda curva puede represen- 
tarse con un grado dado de precisión median- 
te una serie de Fourier) donde dos de sus pa- 
rámetros (la amplitud y fase de la serie) son 
los llamados descriptores de la curva. Esta 
curva se representa de forma única mediante 
un punto de un espacio M dimensional, donde 
N depende sólo del punto donde se decida 
cortar la serie de Fourier. 


Estos descriptores de Fourier tienen 
propiedades muy interesantes, como, por 
ejemplo, ser invariantes frente a operaciones 
de escalado, rotaciones y traslaciones. 


Una vez se ha descrito la curva extraí- 
da en el espacio de Fourier N-dimensional, se 
pasa a la etapa de clasificación. En esta etapa 
se compara con las posiciones de un conjunto 
de modelos en un espacio N dimensional, o se 
compara con las posiciones de los centroides 
correspondientes a los grupos de puntos equi- 
valentes a las curvas, extraídos de varios "jue- 
gos de prueba" previamente procesados. 


Tanto modelos como centroides consti- 
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tuyen una base fija de formas conocidas con 
las que comparar la nueva curva obtenida. 

Veamos un caso práctico. Se dispone de 
un conjunto de objetos identificados en una 
placa fotográfica y clasificados por el sistema 
anteriormente descrito como "estrellas", En la 
figura 1 se muestran las posiciones de los pun- 
tos correspondientes a curvas isonivel extraí- 
das con niveles de luminosidad distintos, y tra- 
zadas en planos definidos por dos pares de 
descriptores de Fourier. En la figura se detec- 
ta que a pesar de seleccionar un espacio de 
dos dimensiones en lugar de las 28 del espa- 
cio de Fourier, quedan claros dos distintos 
grupos de puntos. Las curvas reconstruidas a 
partir de los centroides de los dos grupos de 
puntos encontrados en el espacio de 28 di- 
mensiones se muestran en la figura 2. La figu- 
ra 2-A muestra la forma isonivel de una estre- 
lla ideal, frente a la 2-B, que representa la for- 
ma isonivel de una estrella brillante. La defor- 
mación se debe a la difracción causada por la 
estructura de sujeción en la placa en el foco 
del espejo del telescopio. 

En la figura 3 puede verse otro ejemplo. 
Muestra las curvas isonivel extraídas de dos 
galaxias distintas y con diferentes niveles de 
luminosidad que se comparan con un modelo 
elíptico. En el gráfico los valores de la abscisa 
se corresponden con la relación de ejes de las 
elipses modelo, mientras que los valores de 
las ordenadas están relacionados con un pará- 
metro que define el "parecido" de la curva ex- 
traída con el modelo elíptico exento de ruido. 
Valores de "semejanza de parámetros” bajos 
se corresponden con curvas extraídas con re- 
laciones señal-ruido bajas. 


TERMINOLOGIA 


GLOSARIO DE TERMINOS 


Análisis morfológico. En el procesamiento 
de imágenes se designa así al examen y 
descripción de las características de forma 
que presentan las figuras a estudiar (dimen- 
siones, distribución de masas, razón de as- 
pecto, contornos, etc.). 


Centroides. Elementos característicos y de- 
finitorios de las figuras geométricas que 
permanecen invariantes frente a la mayoría 
de las transformaciones (rotaciones, trasla- 
ciones, escalados, etc.). 


Descriptores de Fourier. Parámetros ca- 
racterísticos de una serie de Fourier que 
aparecen bajo diferentes formas en cada 
ino de los sumandos de la serie. 


Extracción de características. Obtención 
mediante los algoritmos adecuados de las 
características geométricas, morfológicas, 
visuales, etc., de un objeto o grupo de obje- 
tos para su identificación. 


Filtros RNM. Filtros no lineales que permi- 
ten obtener una estimación de un fondo a 
partir de los contenidos de la imagen origi- 
nal, mediante sustracción de unos valores 
predeterminados. 


Invariantes. Características geométricas y 
morfológicas que no sufren variación al so- 
meter las imágenes a las que pertenecen a 
las diversas transformaciones usuales en el 
procesamiento y análisis de imágenes. 


Máscara. Conjunto de pixels que definen un 
modelo o patrón con el cual ir transforman- 
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do la información presente en la imagen ori- 
ginal, para modificar (mejorando) sus carac- 
terísticas: incremento de definición, perfila- 
do de bordes, eliminación de "ruido", am- 
pliación de la gama de grises, etc. 


Pixel conjugado. Pixel del espacio conjuga- 
do (espacio n-dimensional donde se repre- 
senta la transformada de la imagen original) 
que se corresponde con el pixel de que se 
trata, en la imagen primitiva. 


Razón de aspecto. Relación entre dos di- 
mensiones contrapuestas de una figura 
(normalmente razón entre la máxima longi- 
tud horizontal y la máxima longitud verti- 
cal). 


Segmentación. Separación e individualiza- 
ción de los diferentes objetos que aparecen 
en una imagen, o de las diversas partes se- 
parables de una única figura. La segmenta- 
ción es una fase fundamental en cualquier 
proceso de identificación de imágenes, 
bien para su catalogación o identificación, 
bien para el control de robots. 


Serie de Fourier. Serie aritmética de poten- 
cias equivalente a una función cualquiera 
dada que se vaya a analizar y que puede 
aproximarse a dicha función, de tal modo 
que el error resultante sea menor que uno 
prefijado, sin más que tomar un número su- 
ficiente de sumandos de la serie. 


Transformada. Imagen obtenida a partir de 
una dada mediante la aplicación de un al- 
goritmo de transformación: filtros (paso alto, 
paso bajo...), transformada de Fourier, con- 
volución, etc. 


